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Vorwort 


Der Begriff Computergrafik kennzeichnet visuelle Darstellungen, die oft an künstlerische 
Ambitionen, aber auch an zweckbezogene, technische Grafiken erinnern. Computergrafik 
ist ein Teil der Informationsverarbeitung, bei der die Computerausgaben grafisch darge¬ 
stellt werden. Gemäß dem Sprichwort „Ein Bild sagt mehr als 1000 Worte“ liefern techni¬ 
sche Grafiken einen schnellen und umfassenden Überblick über komplizierte, funktionale 
Zusammenhänge. Der rasche Technologiefortschritt, verbunden mit der Massenproduk¬ 
tion von Chips führte dazu, daß bereits heute kostengünstige Computer grafikfähig sind. 

Die Leistungsfähigkeit von grafikverarbeitenden Geräten (Rasterbildschirm, Plotter, Druk- 
ker, Lichtgriffel, Steuerknüppel, Rollkugel, grafische Tabletts u. a.) erfordert ein Lehrbuch, 
das die Grundlagen der Computergrafik behandelt. Das vorliegende Buch will in diese 
Grundlagen einführen. Die notwendigen geometrischen Voraussetzungen werden mit ein¬ 
fachen und anschaulichen Anleitungen aufbereitet. Die abgeleiteten Algorithmen werden 
in die Programmiersprache BASIC übertragen. Zu jedem Kapitel werden BASIC-Program- 
me angeboten. Besonderer Wert wurde bei der Auswahl der Algorithmen auf eine Praxisnä¬ 
he zu technisch-naturwissenschaftlichen Berufsfeldern gelegt. Obwohl alle Programme für 
den Schneider CPC 464 Computer geschrieben sind, ist eine leichte Übertragung der Pro¬ 
gramme auf andere Rechner möglich. Dies resultiert daher, daß der algorithmische Gedan¬ 
ke in diesem Buch gegenüber einer Ausnutzung von speziellen und selten gebrauchten Gra¬ 
fikbefehlen dominiert. 
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1. Bildschirmtechnologie 


Es gibt verschiedene Arten von grafikfähigen Bildschirmen, die sich durch die Erzeugun 
des Bildes unterscheiden. 

Ein Vektorbildschirm lenkt den Elektronenstrahl direkt ab, so daß durchgehende (nicht un 
terbrochene) Linien auf dem Bildschirm erzeugt werden. Das Vektorverfahren gewährlei 
stet eine gute Qualität bei hoher Auflösung. Bei einer Speicherbildröhre (Storage-tube 
speichert eine Leuchtschicht (fluoreszierende Schicht) die geschriebenen Vektoren. Bei ei 
nem Vektorbildschirm lassen sich die einzelnen Bildteile nicht herauslöschen. Bei der Bild 
wiederholröhre (Refresh-Technik) werden die Vektoren 50mal pro Sekunde dargestelll 
Mit zunehmender Bildfüllung können nicht alle Linien innerhalb eines Refresh-Zyklus nei 
gezeichnet werden. Dadurch tritt ein Flimmern des Bildschirmes auf. 

Bei einem Rasterbildschirm erfolgt eine zeilenweise Ablenkung des Elektronenstrahles 
wobei innerhalb der Zeile eine abwechselnde Hell-Dunkel-Steuerung erfolgt. Dadurch ei 
geben sich Bildpunkte (Pixels). Die Auflösung des Rasterbildschirmes wird durch die An 
zahl der schachbrettartig angeordneten Pixels bestimmt. Die hochauflösende Grafik de 
CPC-464 weist 640 x 200 = 128 000 Bildpunkte auf. Jedem Bildpunkt ist im Rechner eil 
Bit zugeordnet. Dem Bild entspricht ein bestimmtes Bitmuster (Bitmapping) im RAIS 
(Random Access Memory = Schreib-Lese-Speicher). 

Ein Byte entspricht 8 Bit, d. h. 128 000 Bit entsprechen 16 000 Bytes. Diese knapp 16 KB> 
te (1 KByte = 1024 Byte) für den hochauflösenden Bildschirm belegen den RAM-Bereic 
von $C000 bis SFFFF (dezimal: 49 152 bis 65 535). 

Im Gegensatz zum Vektorbildschirm kann der Rasterbildschirm, durch Setzen der entspre 
chenden Bits, beinahe verzögerungsfrei aktualisiert werden. Bei Rastergrafik-Sichtgeräte: 
können Flächen äußerst schnell mit Grafikdaten aufgefüllt werden. Das Rasterverfahren ei 
möglicht gegenüber dem Vektorverfahren die Darstellung einer größeren Anzahl von Fai 
ben. Natürlich wächst mit der Farbenvielfalt der zugehörige Speicherbedarf. Der Rastei 
bildschirm ist vom Verfahren her gesehen flimmerfrei. 



2. Zeichnen von Linien 


In dem folgenden Testprogramm werden lediglich einige Linien auf dem Bildschirm darge¬ 
stellt. Diese Linien sind durch den Anfangspunkt Pl(xl,yl) und den Endpunkt P2(x2,y2) 
festgelegt. Die linke untere Ecke des Bildschirmes bildet den Nullpunkt des „Bildschirm- 
Koordinatensystems“, das in x-Richtung (von links nach rechts) die Punkte 0,1,2,.. .,639 
enthält und in y-Richtung von 0 (linke untere Ecke) bis 399 (linke obere Ecke) läuft. 

Zum Zeichnen einer Linie können die Anweisungen 

MOVE x1,y1 : DRAW x2,y2, 1 


verwendet werden. Zunächst wird der Grafik-Cursor gemäß den Koordinaten xl, yl posi¬ 
tioniert. Dann wird von dort aus eine Linie zum Punkt P2 mit den Koordinaten x2 und y2 ge¬ 
zeichnet. Eine Zahl 1 (bzw. 0) am Ende dieser DRAW-Anweisung bewirkt das Zeichnen 
(bzw. Löschen) der Linie. Die x-Koordinaten xl,x2 der Linienpunkte müssen zwischen C 
und 639 liegen; die y-Koordinaten y l,y2 zwischen 0 und 399, also im „Bildschirm-Koordi¬ 
natensystem“. 


Bevor wir nun ein Testprogramm zum Zeichnen von Linien schreiben wollen, zunächst et¬ 
was über den Bildschirm des CPC 464. Es gibt 3 verschiedene Darstellungsarten, von denen 
nur jeweils eine aktiv sein kann; d. h., daß sie nicht gemischt werden können. Diese 3 Dar¬ 
stellungsarten sind: 


MODE 0 

Vielfarbmodus 
20 Spalten u. 

25 Zeilen für Text 
160x200 Punkte 
16 Farben darstellbar 


MODE 1 

Normalmodus 
40 Spalten u. 

25 Zeilen fürText 
320x200 Punkte 
4 Farben darstellbar 


MODE 2 

Hochauflösend 
80 Spalten u. 

25 Zeilen für Text 
640x200 Punkte 
2 Farben darstellbar 


Diese Darstellungsarten werden durch die MODE-Anweisung eingeschaltet. Die Anwei¬ 
sung MODE 2 schaltet also den hochauflösenden Bildschirm ein. Darüber hinaus gibt es 
natürlich noch weitere Grafik-Befehle. Der einfachste lautet 


B0RDER n 


Dabei steht n für eine Farbnummer, die aus folgender Palette ausgewählt werden kann. 


0 

Schwarz 

7 Purpur 

14 Pastellblau 

21 

Limonengrün 

1 

Blau 

8 Hellmagenta 

15 Orange 

22 

Pastellgrün 

2 

Hellblau 

9 Grün 

16 Rosa 

23 

Pastellcyan 

3 

Rot 

10 Cyan 

17 Pastellmagenta 

24 

Hellgelb 

4 

Magenta 

11 Himmelblau 

18 Hellgrün 

25 

Pastellgelb 

5 

Hellviolett 

12 Gelb 

19 Seegrün 

26 

Leuchtendweiß 

6 

Hellrot 

13 Weiß 

20 Hellcyan 
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Bei dem Grünmonitor bezeichnen die Nummern unterschiedlich helle Grüntöne, wobei die 
Helligkeit mit der Größe der Zahl zunimmt. Die BORDER-Anweisung bezieht sich auf den 
nichtbeschreibbaren Bildschirmrahmen und füllt diesen mit der durch n bestimmten Farbe. 
Z. B. bewirkt BORDER 3 das Einschalten der Rahmenfarbe rot (3). Die BORDER-An¬ 
weisung arbeitet unabhängig vom Bildschirmmodus. Ein MODE-Kommando hat keine 
Auswirkung auf diesen Befehl. 

Die Anzahl der gleichzeitig verwendbaren Farben für Grafik oder Text hängt vom Bild¬ 
schirmmodus ab. Um farbige Grafiken zu erstellen, wird die Nummer des Farbstiftes ange¬ 
geben, der verwendet werden soll. Diesem Farbstift ist eine bestimmte Farbnummer zuge¬ 
ordnet. Dabei muß zwischen Farbstift und Farbnummer unterschieden werden. Die Anwei¬ 
sung 

DRAW x, y, m 

zeichnet eine Linie von der augenblicklichen Cursorposition zu dem Punkt mit den Koordi¬ 
naten (x,y), in der dem Farbstift m zugeordneten Farbe. Das m gibt also über den Farbstift 
die Farbe an. Von diesen Farbstiften können im Vielfarbmodus 16, im Normalmodus 4, und 
im hochauflösenden Modus 2 verschiedene verwendet werden. Diese Farbstifte sind nach 
dem Einschalten des Rechners mit Standardwerten vorbesetzt. Um diese nach eigenen 
Wünschen zu ändern benötigt man das INK-Kommando: 

INK m, n 

Durch diese Anweisung wird dem Farbstift mit der Nummer m die Farbe mit der Nummer n 
zugeordnet. Die Anzahl der INK’s hängt vom Bildschirmmodus ab. Im hochauflösenden 
Modus können zwei Farbstifte (INK’s) verwendet werden, nämlich INK 0 und INK 1. Im 
Vielfarbmodus können 16 Farbstifte verwendet werden, also INK 0 bis INK 15. Um die 
Textausgabe farbig zu gestalten, werden die Anweisungen 

PEN m und PAPER m 

benutzt. Nach dem PEN-Kommando werden die Zeichen auf dem Bildschirm in der dem 
Farbstift m zugeordneten Farbe dargestellt. Die PAPER-Anweisung bezieht sich auf den 
Hintergrund der Zeichen, der nach diesem Kommando in der Farbe dargestellt wird, die 
dem Farbstift m zugeordnet ist. 

Wir wollen nun ein Programm zum Zeichnen von 5 Linien schreiben. In der Zeile 110 wird 
mittels der MODE-Anweisung der hochauflösende Bildschirm mit 640x200 Bildpunkten 
eingeschaltet. Danach wird der Bildschirmrahmen durch die Anweisung BORDER 2 in 
hellblau (auf dem Grünmonitor in einem dunklen Grünton) dargestellt. Mit der folgenden 
Anweisung INK 0,1 wird dem Farbstift mit der Nummer 0 die Farbe mit der Nummer 1 zu¬ 
gewiesen, d. h. ab jetzt besitzt der Farbstift 0 die Farbe blau. Entsprechend wird mit INK 
1,26 dem Farbstift 1 die Farbe weiß (26) zugeordnet. Die Zahl am Ende der DRAW-Anwei¬ 
sungen gibt an, mit welchem Farbstift die Linien gezeichnet werden. Die Linien werden also 
in weiß (26) auf blauem (1) Bildschirm-Hintergrund gezeichnet. Die Warteschleife (Zei¬ 
le 180) bewirkt, daß die Grafik so lange auf dem Bildschirm erhalten bleibt, bis irgendeine 
Taste gedrückt wird. 
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100 REM- Linien zeichnen - 

105 : 

110 MODE 2: BORDER 2 :INK 0,1:INK 1,26 
115 : 

120 MOVE 100, 20: DRAW 100,280, 1 

130 MOVE 80,270: DRAW 320,380, 1 

140 DRAW 560,270, 1 

150 MOVE 540,280: DRAW 540, 20, 1 

160 DRAW 100, 20, 1 

170 : 

180 a$=INKEY$: IF a$ = "" THEN 180 



Grafik 1: Zeichnen von Linien 


2.1 Zeichnen von dicken Linien 

Das Hervorheben von Linien durch eine breitere Strichstärke ist bei technischen und künst¬ 
lerischen Anwendungen oft notwendig. Auf einem Rasterbildschirm entsteht eine dickere 
Linie dadurch, daß mehrere Linien gezeichnet werden, die parallel zueinander versetzt sind. 

Wir wollen nun ein Programm zum Zeichnen von dicken Linien entwickeln. Hierzu betrach¬ 
ten wir die Abb. 1. Die Linie vom Punkt Pl(xl,y 1) zum Punkt P2(x2,y2) soll dadurch dicker 
erscheinen, daß zusätzlich parallel versetzte Linien von Q1 nach Q2 gezeichnet werden. Die 
Koordinaten von Q1 sind durch x 1 — dx und y 1 -l-dx gegeben. Aus der Ähnlichkeit der beiden 
Dreiecke folgt: 

dx = (y2-y1)/h 
dy = (x2-x1)/h 

Hierbei ist h nach dem Satz von Pythagoras durch 
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h = sqr ((x2-x1)*(x2-x1) + 

(y2-y1)*(y2-y1)) 

gegeben. Soll nach dem Zeichnen der Li¬ 
nie von Pl(xl,yl) nach P2(x2,y2) zusätz¬ 
lich die Linie von Q1 nach Q2 gezeichnet 
werden, so ist h und nachfolgend dx und 
dy zu berechnen. Analog ergeben sich die 
Koordinaten von 

Q2(x2-dx,y2+dy) 


Das Programm 

520 REM- Dicke Linien zeichnen - 

525 : 

530 MODE 2: BORDER 11:INK 0,0:INK 1,26 
535 : 

540 FOR k=l TO 30 

550 : xl = 40 + 560*RND(1): yl = 30 + 340*RND(1) 
560 : x2 = 40 + 560*RND(1): y2 = 30 + 340*RND(1) 
565 : 

570 : d = 10 

580 : h = SQR ((x2-xl) ~2 + 2.56* (y2-yl) ~2) 

590 : hx = (x2-xl) /h/2.56: hy = (y2-yl)/h 
595 : 

600 : FOR t=0 TO d STEP 1 

610 : dx = t*hy: dy = t*hx 

620 : MOVE xl-dx, yl+dy: DRAW x2-dx, y2+dy, 1 

630 : MOVE x2+dx, y2-dy: DRAW xl+dx, yl-dy, 1 

640 : NEXT t 

645 : 

650 NEXT k 
655 : 

660 a$=INKEY$ : IF a$="" THEN 660 

folgt den erläuterten Darlegungen. In der Zeile 530 wird durch den MODE-Befehl der 
hochauflösende Bildschirm eingeschaltet. Mit den INK-Anweisungen werden die Farben 
festgelegt. Es werden weiße Linien (26) auf schwarzem Hintergrund (0) gezeichnet. Der 
Bildschirmrahmen wird mit BORDER 11 in himmelblau dargestellt. Wir wollen testweise 
30 dicke Linien zeichnen. Die Zeile 540 zählt die Anzahl der dicken Linien. Der Anfangs- 
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punkt Pl(xl,yl) und Endpunkt P2(x2,y2) jeder Linie wird zufällig (Zeilen 550,560) mit 
Hilfe der RND(l)-Funktion gewählt. 



Grafik 2: Dick gezeichnete Zufallslinien 


In der Zeile 580 wird h berechnet. Der Faktor 1.6* 1.6=2.56 berücksichtigt die unterschied¬ 
liche Anzahl von Pixels (639x399) in x- bzw. y-Richtung. In der Zeile 590 wird hx,hy be¬ 
rechnet. Durch die Schleife von Zeilennummer 600 bis 640 werden nebeneinander Linien 
gezeichnet, die parallel zur Linie von Pl(xl,yl) nach P2(x2,y2) sind. Hierbei entspricht d 
(Zeilen 570,600) der Anzahl der parallelen Linien und damit der Liniendicke (Strichstär¬ 
ke). 

Die Grafik 2 zeigt dicke Zufallslinien (d= 10). Jeder neue Programmstart (RUN) erzeugt ei¬ 
ne andere Anordnung der 30 Zufallslinien. Setzen wir in der Zeile 570 d=0, so würde je¬ 
weils eine Linie von PI nach P2 gezogen. Für d=10 werden 11 parallele Linien gezeichnet, 
die bei der Schrittweite 1 (Zeile 600) dicht nebeneinander liegen. In der Zeile 550 wird xl 
mit einer Zufallszahl zwischen 40 und 600 und y 1 mit einer Zufallszahl zwischen 30 und 370 
besetzt. Entsprechendes gilt für x2,y2 (Zeile 560). Diese Zufalls-Anfangspunkte und Zu¬ 
falls-Endpunkte werden durch dicke Linien verbunden. 

Die k-Schleife (Zeile 540) zählt lediglich die Anzahl der Zufallslinien. Ersetzen wirdie Pro¬ 
grammzeile 570 durch 

570 d = 10*RND(1) 

so wird jede Linie mit einer zufälligen Liniendicke gezeichnet. Auf die Abbildung einer ent¬ 
sprechenden Grafik wollen wir verzichten. 

Die Grafik 3 entspricht dick gezeichneten Zufallslinien mit einer größeren Schrittweite 
(Zeile 600). Als Schrittweite wurde STEP 5 gewählt. Die Grafik enthält einen zentralen 
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Grafik 3: Dick gezeichnete Linien mit einem zentralen Punkt 


Punkt und wurde durch das Ersetzen der Zeile 550 durch die festen Pl-Koordinaten 
550 xl = 320: yl = 200 


erzeugt. 


2.2 Zeichnen von gestrichelten Linien 

Bei kommerziellen Grafiksystemen ist es möglich, die Linienart zu wählen. In einfacher 
Weise ermöglichen solche Systeme das Zeichnen von gestrichelten, strichpunktierten oder 
gepunkteten Linien. Im Schneider-BASIC sind keine Linienarten vorgesehen. Daher soll 
hierein Programm zum Zeichnen einer gestrichelten Linie vom Punkt Pl(xl,yl)zum Punkt 
P2(x2,y2) angegeben werden: 

720 REM- Gestrichelte Linien zeichnen - 

725 : 

730 MODE 2:BORDER 3:INK 0,0:INK 1,26 
735 : 

740 FOR k=l TO 30 

750 xl = 40 + 560*RND (1) : yl = 30 + 340*RND(1) 

752 REM- xl = x2: yl = y2 

760 x2 = 40 + 560*RND (1) : y2 = 30 + 340*RND(1) 

762 REM- IF k=l THEN 920 

765 : 

770 MOVE xl-4, yl+4: DRAM xl+4, yl+4, 1 
775 DRAW xl+4, yl-4, 1: DRAW xl-4, yl-4,1 
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780 DRAW xl-4, yl+4, 1 

790 MOVE X2-4 t y2 + 4 : DRAW x2 + 4, y2 + 4, 1 

795 DRAW x2 + 4, y2-4, 1: DRAW x2-4, y2-4, 1 

800 DRAW x2-4i y2 + 4, 1 

805 : 

810 : hl = 3s REM- hl = 1 + 4*RND(1) 

820 : h = SQR ( (x2-xl) ~2 + (y2-yl)~2)/4 
830 : hx = (x2-xl)/h: hy = (y2-yl)/h 
840 : xa = xl: ya = yl: IF h<hl THEN 910 

850 : 

860 : FOR t=hl TO h-hl STEP hl 

870 : xb = xl + t*hx: yb = yl + t*hy 

880 : MOVE xa, ya: DRAW xb , yb, 1 

890 : xa = xb + hx: ya = yb + hy 

900 : NEXT t 

905 : 

910 : MOVE xa, ya: DRAW x2, y2, 1 

915 : 

920 NEXT k 

925 : 

930 a$=INKEY$ : IF a$="" THEN 930 

Das Programmstück von Zeile 810 bis 910 zeichnet eine gestrichelte Linie. Die anderen Pro¬ 
grammzeilen dienen lediglich dem Austesten des Programmes mit Zufallslinien (Zeile 
750,760). Der Wert h 1=3 (Zeile 810) entspricht der Länge der Teilstriche. Für h 1 können 
z. B. Werte zwischen 1 und 10 gewählt werden. Die Längen der Lücken können durch den 
Nenner (hier 4) der Zeile 820 verändert werden. Wird statt des Nenners 4 der Nenner 2 ge¬ 
wählt, so werden die Lücken verkürzt, ln der Zeile 870 wird gemäß der Parameterdarstel¬ 
lung von Geraden (s. 5.1) der Endpunkt (xb,yb) eines Teilstrichelchens berechnet. In der 
Zeile 880 wird die Teilstrecke von (xa,ya) nach (xb,yb) auf der Verbindungslinie von 
(x 1 ,y 1) nach (x2,y2) gezeichnet. Die Zeile 890 bewirkt, daß der Anfangspunkt (xa,ya) der 
nächsten Teilstrecke weitergeschoben wird. Dadurch entsteht eine Lücke. Die Lückenlänge 
ist durch hx und hy festgelegt (Zeilen 820,830). Durch die Zeile 910 wird das letzte Teilstück 
der Strecke von (xl,yl) nach (x2,y2) gezeichnet. 

Die Zeilen 810 bis 910 können leicht als Unterprogramm formuliert werden, wobei xl,yl, 
x2,y2 Eingangswerte darstellen. Im Unterprogramm werden die internen Variablen 
t,h,h l,hx,hy,xa,ya,xb,yb verwendet. 

Das beschriebene Programm liefert die Grafik 4. Die Anfangspunkte (xl,yl) und End¬ 
punkte (x2,y2) der gestrichelten Linien sind durch Rechtecke (Zeilen 770 bis 800) markiert 
worden. Die Werte xl,yl, x2,y2 ergeben sich als Zufallszahlen (Zeilen 750,760). Werden 
die durch 

REM- 
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f G3 
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Grafik 4: Gestrichelte Linien 



Grafik 5: Gestrichelte Linien als fortlaufender Linienzug mit unterschiedlichen Stricharten 


gekennzeichneten Zeilen aktiviert, so wird der Linien-Endpunkt als neuer Linien-Anfangs¬ 
punkt verwendet (Zeile 752). Durch die zufällige Wahl von h 1 (Zeile 810) zwischen 1 und 5 
ergeben sich unterschiedliche Strichelungen, die in der Grafik 5 dargestellt sind. 
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3. Bildschirmkoordinaten 


3.1 Die Skalengleichung 

Die Abmessungen eines darzustellenden Objektes sind im allgemeinen verschieden von den 
Bildschirmabmessungen. Zur grafischen Darstellung auf dem Bildschirm sind die Objekt¬ 
abmessungen in Bildschirmkoordinaten umzurechnen. Dies geschieht mit Hilfe eines Maß¬ 
stabfaktors. 


Wir wollen den Umrechnungsfaktor mit dem Strahlensatz ermitteln. Im Punkt Q der Ab. 2 
sei z. B. eine Lichtquelle angeordnet. Ein Lichtstrahl, der von der Lichtquelle Q zum Ob¬ 
jektpunkt R verläuft, markiert auf der i-Achse die Schattengrenze S. Die Schattenlänge 
hängt von der Objektlänge ab. Durch die 
Differenz (x—x8) der x-Achsenwerte ist die 
Objektlänge gegeben. Die Länge des Schat¬ 
tens entspricht (i—i8). Eine größere Ob¬ 
jektlänge ergibt eine größere Schattenlän¬ 
ge. Nach dem Strahlensatz ist das Verhält¬ 
nis der Schattenlänge zur Objektlänge kon¬ 
stant. Diese Konstante bezeichnen wir als 
x-Maßstabsfaktor. Durch Formeln ausge¬ 
drückt ergibt sich: 

_i-i8_ = i9—i8 = mx 


x—x8 x9—x8 



Hierbei ist x8 (bzw. x9) die minimale (bzw. maximale) x-Koordinate des abzubildenden 
Gegenstandes. Soll z. B. ein Haus grafisch dargestellt werden, so sind diese Abmessun¬ 
gen und somit x8 und x9 bekannt. Die i-Achse soll den waagerechten Bildpunkten (Pi¬ 
xels) einer Bildschirmzeile entsprechen. 


Diese Bildschirmpunkte können vom i8-ten bis i9-ten Pixel gesetzt werden. Der CPC- 
464-Bildschirm hat in einer Zeile 0,1,2,.. .,639 ansteuerbare Pixels. Sollen nicht alle Pi¬ 
xels einer Zeile verwendet werden, so könnte z. B. i8=50, i9=550 gewählt werden. 
Wenn x von x8 bis x9 läuft, so würde der 50. bis 550. Bildpunkt angesprochen. Weil der 
o. g. Strahlensatz für viele grafische Darstellungen verwendet wird, wollen wir zum bes¬ 
seren Verständnis ein Beispiel per Hand durchrechnen. Die i-Achse soll vom 50. bis 
550. Pixel einer Bildschirmzeile gehen, wenn die x-Werte von 5 bis 15 laufen. Wir er¬ 
halten den Maßstabsfaktor 


i9—i8 _ 550-50 
x9-x8 ~ 15-5 


50 
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Aus dem Strahlensatz ergibt sich der zu einem Wert gehörende i-te Pixel zu 


i = i8 + mx*(x-x8) 
i = 50 + 50*(x-5) 


Wird x eingesetzt, so erhalten wir folgende Tabelle: 


X 

5.0 

6.0 

7.0 

8.0 

9.0 

10.0 

11.0 

12.0 

13.0 

14.0 

15.0 

D 

50.0 

100.0 

150.0 

200.0 

250.0 

300.0 

350.0 

400.0 

450.0 

500.0 

550.0 


100 

REM- 

— 

X 

8 = 5 

: x 

9 = 15 : 

105 

INPUT 

II 

x8 i 

x9 

_ ff . 

~ f 

110 

INPUT 

II 

18 , 

i 9 

_ ff . 

“ f 

112 

: 






115 

i 8 = 

0 

. 5 

+ 

INT 

(18) : 

120 

: 






130 

mx = 

( 

i 9 

- 

18) 

/ (x9 

135 

: 






145 

FOR 

x = 

x8 

TO 

x9 

STEP 

155 

; 

i% 

= 

i8 

+ 

mx * 

170 

: 

PRINT x 

i i 

% 

180 

NEXT 

X 






i8 = 50: i9 = 5 50:GOTO 115 
x8 , x9 
i 8 , i 9 

i 9 = 0.5 + INT (i 9) 

- x8) 

(x9-x8) /10 
(x - x8) 


Die i-Werte müssen auf ganze Zahlen gerundet werden, weil es nur ganzzahlige Pixel¬ 
werte gibt. Im obigen Programm wird durch die Addition von 0.5 zu i8 und i9 (Zei¬ 
le 115) diese Rundung bewirkt. Die Nachkommastellen werden bei der Besetzung der 
Ganzzahlvariablen i% abgeschnitten (Zeile 155). 


3.2 Zeichnen einer x-Achse 

Ein Achsenkreuz wird u. a. für die grafische Darstellung von Funktionen benötigt. Eine 
Achse besteht aus einer mit Markierungen versehenen Linie. Das folgende Programm folgt 
den Ausführungen des vorherigen Kapitels über die Skalengleichung. In der Zeile 230 wird 
der Maßstabsfaktor mx berechnet. Die Umrechnung der x-Werte in die Pixelnummer i% 
wird durch die Formel in der Zeile 250 durchgeführt. Zum Abschneiden der Nachkomma¬ 
stellen wird die Ganzzahlvariable i% verwendet. Auch möglich wäre die Verwendung der 
INT()-Funktion. In der Zeile 265 wird eine waagerechte Linie vom „alten“ Pixel il zum 
nachfolgenden Pixel i% gezeichnet. Die Zeile 260 zeichnet einen Querstrich beim alten Pi¬ 
xel und markiert damit die x-Achse. Die Zeilen 270 und 275 beschriften die markierte „al¬ 
te“ Stelle xl der x-Achse mit dem zugehörigen xl-Wert. 
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200 REM- x-Achse zeichnen und beschriften - 

210 x8 = 5: x9 = 15: i8 = 50.5: i9 = 550.5 
220 j = 300:MODE 1:BORDER 3:INK 0,1:INK 1,24 
225 : 

230 mx = Ci9 - i8)/(x9 - x8) 

240 : 

245 : FOR x=x8 TO x9 STEP (x9-x8)/10 
250 : i% = i8 + mx * (x-x8) 

255 : xl$ = STR$ (xl) : IF x=x8 THEN 280 
260 : MOVE il, j : DRAW il, j-10, 1 

265 : MOVE il, j : DRAW i%, j , 1 

270 : TAG: MOVE il-10*LEN (xl$) , j-25 
275 : PRINT xl$; 

280 : il = i% : xl = x 
285 : NEXT x 

290 : 

300 r = 6*SGN (x9-x8) 

305 MOVE i%-5*r, j-r: DRAW i% , j , 1 

310 DRAW i%-5*r, j+r, 1: DRAW i%-5*r, j-r, 1 

320 : 

330 h$="AEQUIDISTANTE ACHSENEINTEILUNG" 

340 MOVE 50, j-60: PRINT h$; 

350 TAGOFF 
360 : 

370 a$=INKEY$ : IF a$="" THEN 370 

Die Zeilen 305 und 310 zeichnen den Richtungspfeil an die x-Achse. Infolge der Zeile 300 
zeigt dieser Pfeil in die Richtung der wachsenden x-Werte. Die Grafik 6 enthält die x-Achse 
mit äquidistanter Einteilung. 

Auf das Zeichnen einer y-Achse kann hier verzichtet werden. Analog zu den obigen Be¬ 
trachtungen kann leicht ein Programm zum Zeichnen einer y-Achse aufgestellt werden. 


3.3 Zeichnen von Funktionsskalen 

Bisher betrachteten wir Achsen mit äquidistanten Einteilungen. Diese gleichmäßige Eintei¬ 
lung ist für manche Anwendungen weniger geeignet. Z. B. werden Schallabsorptionsmes¬ 
sungen i. allg. über einer logarithmisch eingeteilten Frequenzskala aufgetragen. Hierfür 
kann z. B. „Logarithmus-Papier“ verwendet werden. Die Abstände auf der x-Achse ent¬ 
sprechen dem log(x). In der Nomographie werden Funktionsskalen in vielfacher Weise an¬ 
gewendet. Wir wollen solche Funktionsskalen vom Computer zeichnen lassen. Hierzu dient 
das folgende Programm, das nur geringfügig gegenüber dem vorhergehenden Programm 
zum Zeichnen einer Achse verändert wurde. 
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400 REM-loq (x)-Achse zeichnen- 

405 : 

410 x8 = 5: x9 =15: i8 = 50.5: i9 =550.5: j =120 
415 : 

420 DEF FN f (x) = LOG (x) 

430 mx = (i9 — i8) / ( FN f (x9) - FN f (x8) ) 

435 MODE 1: BORDER 3:INK 0,1:INK 1,24 
437 TAG 
440 : 

445 : FOR x=x8 TO x9 STEP (x9-x8)/10 
450 : i% = i8 + mx * (FN f (x) - FN f (x8) ) 

455 : IF x=x8 THEN 485 
460 : IF i%-i1<10 THEN 490 
465 : MOVE il, j-10 

470 : DRAW il, j, 1: DRAW i%, j , 1 
472 : 

475 : xl$ = STRS (xl) : i2 = 10*LEN(xl$) 

480 IF i%-i3 >i2 AND i2<31 

THEN MOVE il—i2.j—25: PRINT xl$;: i3=il+i2+25 
485 : il = i%: xl = x 
490 : NEXT x 
492 : 

495 r = 6*SGN (x9-x8) 

500 MOVE i%-5*r, j+r: DRAW i%, j , 1 

505 DRAW i%-5 * r, j-r, 1: DRAW i%-5*r, j + r, 1 

520 : 

610 h$="LOGARITHMISCHE ACHSENEINTEILUNG" 

620 MOVE 50, 60: PRINT h$; 

630 TAGOFF 
640 : 

650 a$=INKEY$: IF a$="" THEN 650 


In der Zeile 420 wird die Skalenfunktion f(x) definiert. Wenn wir eine reziprok eingeteilte 
Skala erzeugen wollten, so wäre die Zeile 

420 DEF FN f(x) = 1/x 

zu verwenden. Die gleiche Achse mit einer äquidistanten Einteilung wird gezeichnet für 
420 DEF FN f(x) = x 

oder z. B. für 

420 DEF FN f(x) = 2 * x + 3 
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Da wir eine logarithmisch geteilte Skala zeichnen lassen wollen, verwenden wir 
420 DEF FN f(x) = LOG(x) 

Die x-Werte sollen von 5 bis 15 laufen (Zeile 410). In der Zeile 430 wird der Maßstabsfaktor 


i9-i8 

mX “ f(x9)-f)x8) 

berechnet. Die Umrechnung der x-Werte in die entsprechenden Pixels geschieht durch 
i% = i8 + mx * ( f(x) - f(x8) ) 

In der Zeile 450 wird diese Umrechnung durchgeführt. Liegen die Achsenmarkierungen zu 
dicht beieinander, so werden durch die Zeile 460 Markierungsstrichelchen unterdrückt. 

Die Markierungen werden nur dann beschriftet, wenn keine Überdeckung der Ziffern auf- 
tritt (siehe Zeile 480). In der Grafik 6 ist eine x-Achse mit logarithmischer Einteilung ent¬ 
halten. 



r t l i i 
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1 I i i i ■— 

10 .11 1 Sil 13 14 

«C H SEHE IN XE XI. IJHG 



r.."7. ' . . T. T” 

5 6 V 8 

LOG ARITHMISC HE 

~. t r ' i 3 i 

9 10 12 14 

AC H SEHEIN TE II. ÜNG 


Grafik 6: x-Achsen mit äquidistanter und logarithmischer Einteilung 


3.4 Berechnung der Bildschirmkoordinaten 

Der Rasterbildschirm besteht aus einer bestimmten Anzahl ansteuerbarer Bildpunkte, die 
einzeln „gesetzt“ werden können. Dieses Setzen eines Punktes geschieht durch die Angabe 
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der entsprechenden Zeile und Spalte des 
hochauflösenden Bildschirms. Dadurch ist 
es möglich, die Lage eines Punktes durch 
Angabe der Zeile i und Spalte j zu beschrei¬ 
ben. Bei dieser Numerierung der Punkte 
kann i von i8(min) bis i9(max) und j von 
j8(min) bis j9(max) laufen. Zum Beispiel 
könnte i von 0 bis 639 und j von 0 bis 399 
reichen. Da der CPC 464 in der senkrechten 
Richtung jeweils zwei Pixel zu einem zu¬ 
sammenfaßt, ergeben sich 200 Bildpunkte, 
obwohl j von 0 bis 399 reicht. Diese 
640x200=128 000 Bildpunkte bilden das 
physikalische Koordinatensystem. Der 
Punkte (0,0) liegt in der linken unteren Ek- 
ke des Bildschirmes. Die darzustellenden 
Kurven, Figuren oder Punkte variieren ge¬ 
wöhnlich nicht zwischen i8 und i9 bzw. j8 und j9, sondern zwischen den Werten x8 und x9 
bzw. y8 und y9. Die Umrechnung dieser Koordinaten des mathematischen x,y-Koordina- 
tensystems auf die entsprechenden i,j-Bildpunkte des physikalischen Bildschirmsystems ge¬ 
schieht mit dem Strahlensatz 



Abb. 3: Rasterbildschirm 


mx = (i9-i8)/(x9-x8) = Ci—i8)/(x—x8) 
my = (j 9—j 8)/Cy9—y8) = Cj-j8)/Cy-y8) 


der ausführlich im Kapitel 3.1 beschrieben ist. 

Die Umstellung dieser Formeln ergibt: 

i = i8 + mx * (x-x8) 
j = j8 + my * (y-y8) 


Der kleinste x-Wert (x8) und der größte x-Wert (x9) des abzubildenden Gegenstandes ist im 
allgemeinen bekannt. Ebenso die minimalen und maximalen y-Werte y8 und y9. Mit 
i8=0.5,i9=639.5 und j8=0.5,j9=399.5 können die Maßstabsfaktoren mx=(i9-i8)/ 
(x9—x8),my=(j9—j8)/(y9—y8) berechnet und gespeichert werden. Für alle Umrechnungen 
i=i8+mx*(x—x8),j=j8+my*(y—y8) von Zwischenpunkten (x,y) in die Bildschirmkoordi¬ 
naten werden dann diese mx-, my-Werte verwendet. Mit den physikalischen Koordinaten i,j 
kann der zu x,y gehörende Bildpunkt (i,j) angesprochen werden. Da es jedoch nur ganzzah¬ 
lige Bildschirmpunkte gibt, ist von i,j nur der ganzzahlige Anteil relevant. Für diese Opera¬ 
tion bieten sich die Ganzzahlspeicher i%,j% oder die INT()-Funktion an. 

Es gilt: 

x8 =< x <= x9 und y8 =< y <= y9 

i8 =< i <= i9 und j8 =< j <= j9 
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4. Grafische Bildschirmfenster 


Das Schneider-BASIC bietet die Möglichkeit, Bildschirmfenster zu definieren, wobei zwi¬ 
schen Text- und Grafikfenstern unterschieden wird. An dieser Stelle wird nur auf die Gra¬ 
fikfenster eingegangen. Um einen Bildschirmteilbereich für die grafische Darstellung zu 
nutzen, müssen wir diesen mit Hilfe der Anweisung 

ORIGIN xO,yO, l, r, o, u 

festlegen. Dabei bestimmen 1 und r die Koordinaten der linken bzw. rechten Ecke des Bild¬ 
schirmteilbereiches. Mit o und u werden die Koordinaten der oberen bzw. unteren Grenze 
festgelegt. Mit diesen 4 Angaben wird also ein Bildschirmteilbereich bestimmt, dessen eige¬ 
ne Koordinaten der linken unteren Ecke durch xO,yO festgelegt werden. Für das Bildschirm¬ 
fenster der Abb. 4 ergeben sich durch die Wahl von i8=200,i9=540,j8=120,j9=320 die 
Maßstabsfaktoren mx=340/(x9—x8),my=200/(y9—y8) und damit die Abbildungsglei¬ 
chungen 

i% = i8 + mx * (x-x8) 

j% = j8 + my * (y-y8) 

Für x-Werte zwischen x8 und x9 und y-Werte zwischen y8 und y9 ergeben sich Punkte 
(i%,j%) auf dem Bildschirm, die im gewählten Bildschirmfenster liegen. 

Das folgende Programm zeigt die Verwendung eines Bildschirmfensters. In der Zeile 110 
wird das Bildschirmfenster nach Lage und Größe gewählt. Die minimalen und maximalen x- 
und y-Werte sind in der Zeile 120 festgelegt. Das gewählte Bildschirmfenster wird in der 
Zeile 150, nach dem Einschalten des hoch¬ 
auflösenden Bildschirmes, durch 

ORIGIN 0,0,i8,i9,j9,j8 
bestimmt und durch ein Rechteck (Zeilen 
160,170,180) sichtbar begrenzt. 

Die Zeilen 240 bis 270 rechnen die gelese¬ 
nen Endpunkte Pl(xl,yl) und P2(x2,y2) 
einer Strecke in die physikalischen Koordi¬ 
naten (il%,j 1%) und (i2%,j2%) des Bild¬ 
schirmfensters um. Die Zeile 280 veranlaßt 
das Zeichnen der entsprechenden Linie. 

Liegen Teile dieser Linie außerhalb des 
Fensters, so wird das Zeichnen dieser au¬ 
ßerhalb liegenden Punkte automatisch vom 
Rechner unterdrückt. Durch Veränderun¬ 
gen in den DATA-Zeilen 340 bis 360 kön¬ 
nen die Auswirkungen eines Programmlau¬ 
fes beobachtet werden. 


Bildschirm 


399 

o—320 



y9j 

j 





i 

s 



Fenster 


y8 ju—120 








P0 (xO, yO) 


0 


1 

_1_ 



?..!~.J 

200 r—540 

639 


l i 

|.*? .... 


Abb. 4: Bildschirmfenster 
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100 

REM - Bildschirmfen 

ater - 


110 

i 8 = 20 0: i9 = 540 

: j 8 = 120 : j9 = 320 


120 

x8=-10: x9= 10 

: y8=- 

10: y9= 10 


130 

MODE 2: BORDER 

3: INK 0,1: INK 

1,24 

140 






150 

ORIGIN 0,0,i8, 

i 9 , j 9 , 

j 8 


160 

MOVE i8,j 8:DRAW i9,j8,l 


170 

DRAW i9,j9,1:DRAW i8 

, j9 , 1 


180 

DRAW i8,j 8 , 1 




190 






200 

mx= C i9 — i 8 )/ (x9 

-x8) : 

my= ( j9-j8) / (y9-y8) 

210 






220 


FOR k=l TO 

6 



230 


READ xl,yl, 

x2 ,y2 



240 


il% = i8 + 

mx* (xl 

-x8) 


250 


jl% = j 8 + 

my* (yl 

-y8) 


260 


i2% = i8 + 

mx* (x2 

-x8) 


270 


j 2% = j8 + 

my* (y2 

-y8) 


280 


MOVE i1% , 

jl% : 

DRAW i2% , 

j 2% , 1 

290 


NEXT k 




300 






310 

a$=INKEY$ : IF 

a $ = " " 

THEN 310: 

REM warten 

320 

END 




330 






340 

DATA -8,8, 

2,-5, 

-2,-5, 

9, 2 

350 

DATA 9,2, - 

8, 8, 

3,9, - 

9,-8 

360 

DATA -9,-8, 

5,-7, 

5,-7, 

3, 9 


Es kann bei der Vergrößerung eines Bildausschnittes Vorkommen, daß Teile der Figur au¬ 
ßerhalb des gewählten Fensters liegen (s. Abb. 5). Die Unterdrückung dieser Teile wird vom 
Schneider-BASIC übernommen. 


Das folgende Programm verdeutlicht die 
Unterdrückung außerhalb des Fensters lie¬ 
gender Punkte. Dabei wollen wir zufällig 
gezeichnete Linien verwenden. In der Zei¬ 
le 200 wird das grafische Bildschirmfenster 
bestimmt, dessen Größe sich aus den ge¬ 
wählten Werten für i8,i9,j8,j9 ergibt (Zei¬ 
le 140). Durch die Schleife von Zeile 250 
bis 350 werden 40 zufällig ausgewählte Li¬ 
nien gezeichnet. Dabei werden außerhalb 
des begrenzten Fensters liegende Punkte 

Abb. 5: Abschneiden von Figurteilen 
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Grafik 7 : Grafisches Bildschirmfenster 


unterdrückt (s. Grafik 8). Dieses wird besonders deutlich, wenn, durch ein hinter die Zei¬ 
lennummer eingeschobenes „REM“, die Zeile 200 deaktiviert wird. Das Fenster wird dann 
nicht mehr eingerichtet und alle Linien werden ohne Unterdrückung irgendwelcher Teile 
gezeichnet (s. Grafik 9). 

120 REM- Bildschirmfenster - 

130 REM- mit/ohne Ausblendung - 

140 i8=100: i9=540: j8= 60: j9=340 
150 x8= 4: x9 = 26: y8= 4: y9= 26 
160 : 

170 mx= (i9 — i8) / (x9-x8) : my= (j9-j8) / (y9-y8) 

180 : 

190 MODE 2:BORDER 3:INK 0,1:INK 1,24 

200 ORIGIN 0,0,i8,i9,j9,j8 

210 MOVE i8,j 8 : DRAW i9,j8,l 

220 DRAW i9,j9,1: DRAW i8,j9,l 

230 DRAW i8,j8,1 

240 : 

250 FOR n=l TO 40 
260 : 

270 : xl = 20*RND (1) : yl = 20*RND(1) 

280 : x2 = yl + 10: y2 = xl + 10 

290 : il = i8 + mx* (xl-x8) 

300 : jl = j8 + my*(yl-y8) 

310 : i2 = i8 + mx* (x2-x8) 
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320 : j2 = j8 + my* (y2-y8) 

330 : MOVE il, jl: DRAW i2, j2, 
340 : 

350 NEXT n 
360 : 

370 a$=INKEY$: IF a$ = "" THEN 370 



Grafik 8: Bildschirmfenster mit Ausblendung 



Grafik 9: Bildschirmfenster ohne Ausblendung 
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5. Geradengleichung 


5.1 Parameterdarstellung der Geraden 

Bei der Programmierung von Computergrafiken wird die Parameterdarstellung von Gera¬ 
den bevorzugt verwendet. Diese Darstellung 

x = xl + t * (x2-x1) 
y = yl + t * (y2-y1) 

benutzt den Parameter zur Berechnung der x,y-Koordinaten von Punkten auf der Geraden. 
Wird z. B. die 1. und 2. Gleichung nach t umgestellt, so ergibt sich aus 

x—xl _ y—yl 
t= x2—xl ~ y2—yl 


die 2-Punkte-Form 

y—yl _ y2—yi 

x—xl x2—xl 

der Geradengleichung. Soll eine Gerade durch die beiden Punkte P1 (4,3),P2(7,6) gehen, so 
liefert die Parameterdarstellung der Geraden die beiden Gleichungen 

x = 4 + 3*t 
y = 3 + 3*t. 

Durch das Programm: 

500 REM- Parameterdarstellung - 

505 REM- einer Geraden (Tabelle) - 

510 DATA 4, 3, 7, 6 

520 READ xl.yl, x2,y2 

530 PRINT " t x y " 

540 PRINT "-" 

550 : 

560 FOR t=-l.5 TO 2 STEP 0.5 
570 x = x1 + t * ( x2 - xl ) 

580 y = yl + t * ( y2 - yl ) 

590 PRINT t; TAB (7) ; x; TAB (14); y 

600 NEXT t 
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wird eine Wertetabelle für die Gerade durch PI und P2 erzeugt. Es ergeben sich die Werte 


t 

-1.5 

-1.0 

-0,5 

0.0 

0.5 

1.0 

1.5 

2.0 

X 

-0.5 

1.0 

2.5 

4.0 

5.5 

7.0 

8.5 

10.0 

D 

-1.5 

0.0 

1.5 

3.0 

4.5 

6.0 

7.5 

9.0 


Zu jedem t-Wert gehören jeweils x,y-Werte, 
die einen Geradenpunkt im x,y-System 
markieren (Abb. 6). Für t=0 ergibt sich der 
vorgegebene Geradenpunkt P1 und für t= 1 
ergibt sich P2. 

Variiert t zwischen 0 und 1, so ergeben sich 
Geradenpunkte P(x,y), die zwischen PI 
und P2 liegen. Soll eine Linie punktweise 
von PI nach P2 gezeichnet werden, so läuft 
t von 0 bis 1 (Abb. 6). Der Parameter t ist 
negativ, wenn von PI aus betrachtet die 
Punkte P(x,y) und P2(x2,y2) auf entgegen¬ 
gesetzten Seiten der Geraden liegen. 



Abb. 6: Parameterdarstellung der Geraden 


5.2 Schnittpunkt von zwei Geraden 

Bei der Erstellung von Grafiken ist oft die Frage zu klären, ob eine von PI nach P2 zu zeich¬ 
nende Gerade auf der Zeichenstrecke einen Schnittpunkt mit einer anderen Geraden auf¬ 
weist. 


Zum Beispiel könnte die Linie von PI nach 
P2 den Zeichenrand überschreiten und 
dürfte daher nur bis zum Zeichenrand ge¬ 
führt werden. Im folgenden soll der Schnitt¬ 
punkt der beiden nicht parallelen Geraden 
Gl und G2 errechnet werden. Die beiden 
Geraden sind durch die Punkte Pl(xl,yl), 
P2(x2,y2) bzw. Ql(ul,vl),Q2(u2,v2) fest¬ 
gelegt (s. Abb. 7). Für die vorgegebenen 
Punkte Pl,P-2 lautet die Parameterdarstel¬ 
lung der Geraden G1: 

x = xl + t * (x2-x1) 

y = yl + t * (y2-y1). 



Abb. 7 : Schnittpunkt von 2 Geraden 
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Für t-Werte zwischen 0 und 1 ergeben sich Geradenpunkte P(x,y), die zwischen PI und 
P2 liegen. Mit Hilfe von t kann festgestellt werden, ob ein Geradenpunkt zwischen PI 
und P2 liegt. In gleicher Weise gilt für die Gerade G2: 

x = ul + s * (u2-u1) 
y = vl + s * (v2-v1). 

Für G2 wird der Parameter s verwendet. Nach der Umstellung der beiden Formeln ergibt 
sich: 

x—ul _ y—vl 
S u2—ul v2-vl 

Setzen wir hier x=xl+t0*(x2—x 1) und y=y 1 +t0*(y2—y 1) ein, so erhalten wir den Parame¬ 
ter tO des Schnittpunktes von Gl und G2 zu: 


(ul-xl) * (y2—yl) — (vl—yl) * (x2—xl) 
(x2-xl) * (v2—vl) - (y2—yl) * (u2—ul) 


Vorausgesetzt wird, daß die beiden Geraden G 1,G2 nicht parallel sind, weil dann der Nen¬ 
ner in der tO-Formel Null wird. Mit dem berechneten tO-Wert ergeben sich die Schnittpunkt¬ 
koordinaten zu: 


xO = xl + tO * (x2 - xl) 
yO = yl + tO * (y2 - yl). 

In ähnlicher Weise kann der Schnittparameter für die Gerade G2 ermittelt werden: 

_ (ul—xl) * (v2—vl) — (vl—yl) » (u2—ul) 

(x2-xl) * (v2—vl) — (y2—yl) * (u2-ul) 

Mit sO ergeben sich die Schnittpunktkoordinaten uO=ul+sO*(u2—ul),v0=vl+s0*(v2—vl). 
Natürlich ist im Schnittpunkt uO=xO und vO=yO. Die Nenner von tO und sO sind gleich. Der 
Schnittpunkt P0(x0,y0) von Gl und G2 liegt auf dem Geradenstück zwischen PI und P2, 
wenn tO zwischen 0 und 1 ist. Für einen sO-Wert zwischen 0 und 1 liegt der Schnittpunkt zwi¬ 
schen Ql und Q2. Mit Hilfe von tO (bzw. sO) können wir rechnerisch feststellen, ob der 
Schnittpunkt zwischen den Punkten PI und P2 (bzw. Ql und Q2) liegt. 

In dem folgenden Programm wird der Schnittpunkt der Geraden G1 durch Pl(4,3), P2(7,6) 
mit der Geraden G2 durch Ql( 1.5,1.5),Q2(9,4) ermittelt und mit Hilfe der berechneten Pa¬ 
rameter tO und sO darüber entschieden, ob ein Schnittpunkt zwischen PI und P2 und/oder 
zwischen Ql und Q2 vorliegt. 


28 



620 REM- Schnittpunkt von 2 Geraden - 

630 REM- in Parameterdarstellung - 

640 DATA 4, 3, 7, 6, 1.5,1.5, 9, 4 
650 READ xl,yl, x2,y2, ul,vl, u2,v2 
660 : 

670 h = (x2-xl)* (v2-vl) - (y2-yl)* (u2-ul) 

680 hl = (ul-xl) * (v2-vl) - (vl-yl) * (u2-ul) 

690 h2 = (ul-xl) * (y2-yl) - (vl-yl) * (x2-xl) 

69 5 : 

700 IF h=0 THEN PRINT "gl parallel zu g2": END 
710 : 

720 tO = hl/h 

730 xO = xl + tO* (x2-xl) 

740 yO = yl + tO* (y2-yl) 

750 sO = h2/h 

760 uO = ul + sO* (u2-ul) 

770 vO = vl + s0*(v2-vl) 

780 : 

790 PRINT "Der Schnittpunkt (";xO;",";yO;") " 

800 IF t0>=0 AND tO<=l 

THEN PRINT "lieqt zwischen pl und p2" 

810 IF t0< 0 OR tO > 1 

THEN PRINT "lieqt nicht zwischen pl und p2" 
815 : 

820 PRINT "Der Schnittpunkt (";u0;",";vO;") " 

830 IF sO> = 0 AND sO< = l 

THEN PRINT "liegt zwischen ql und q2" 

840 IF s0< 0 OR sO> 1 

THEN PRINT "liegt nicht zwischen ql und q2" 


5.3 Schraffieren von Flächen 

Bei der Herstellung von technischen Zeichnungen (Schraffieren von Schnittflächen) oder in 
der allgemeinen Datenverarbeitung zur besseren Kennzeichnung von Teilflächen wird ein 
Algorithmus zum automatischen Schraffieren von Flächen gebraucht. Mit den in Kapi¬ 
tel 5.2 besprochenen Gleichungen ist die Realisierung eines derartigen Programms mög¬ 
lich. 
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Die Gerade g der Abbildung 8 soll einer 
Schraffurgeraden entsprechen. Bekannt 
sind der Punkt P0(x0,y0) auf der Gera¬ 
den g und der Richtungswinkel w, den die 
Schraffurgerade mit der x-Richtung bildet. 

Wird die unabhängige Variable der Schraff¬ 
urgeraden g mit t bezeichnet, so ist g durch 

x = xO + t * cos(w) 
y = yO + t * sin(w) 

gegeben. Durchläuft t die Werte von minus 
unendlich bis plus unendlich, so entspre¬ 
chen den berechneten x,y-Werten in der 
x,y-Ebene Punkte, die auf einer Geraden 
durch PO (xO,yO) mit dem Steigungswinkel 
w liegen. Für den Schnittpunkt Q der Gera¬ 
den g und der Geraden gl ergibt sich dann 
der spezielle t-Wert 

(yO—y 1) * cos(w) — (xO—x 1) * sin( w) 
(y2—yl) * cos(w) —(x2—xl) * sin(w) 


In dem Programm 



130 

REM- 

— Schraffieren eines ge- 

— 


140 

REM- 

— schlossenen Polygonzuqes 

— 


150 

DATA 

8,5,45 



160 

DATA 

-35, 35, -35,-35, 35,-35, 

35, 

20 

170 

DATA 

20,-20, 10,20, 0,-20, 

-10 , 

35 

190 

DIM 

x(30) , y(30) , u(8) , v(8) 



195 

: 




200 

i 8 = 

0.5: i9 =639.5: j8 = 0.5: 

j 9 

= 399.5 

210 

xB = 

-50 : x9 = 50 : y8 =-50 : 

y9 

= 50 

220 

mx = 

(i 9 - i 8) / (x9 - x8) : 




my = 

(j 9 - j 8) / (y9 - y8) 



230 

: 




240 

MODE 

2:BORDER 3:INK 0,0:INK 1,26 



260 

READ 

n , dl , w 



270 

tl = 

1E+30: 12 = -tl: h = w*PI/180+0 

. 00001 

300 

cl = 

SIN (h) : c2 = COS (h) 



320 

: 




340 

: FOR i=l TO n 



350 

: READ x (i) , y (i) 



360 

: h 

= c 2 * y ( i) - cl*x(i) 
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370 : IF h<tl THEN tl = h: il = i 

380 : IF h>t2 THEN t2 = h: i2 = i 

390 : i2% = iB + mx* (x (i) -x8) 

400 : j2% = j8 + my*(y(i)-y8) 

410 : IF i=l THEN i3% = 12%: j3% = j2%:GOTO 430 
420 : MOVE i1%,j1%: DRAM 12%,j 2% f 1 
430 : i1% = i2%: jl% = j2% 

440 : NEXT i 

450 MOVE i2%ij 2%: DRAW i3%,j3% » 1 
460 x (n+1) = x (1) : y (n+1) = y (1) 

480 d2 - c2* (y (12) - y(il)) - cl*(x(i2) - x(il)) 
490 : 

500 FOR d=dl TO d2-dl/2 STEP dl 

520 xO = x(il) - cl*d 

540 yO = y(il) + c2*d 

560 m = 0: tl = 1E+30: t2 = -tl 

570 : 

580 : FOR i=l TO n: i2 = i + 1 

600 : h = c2*(y(i2) - y(i)) - cl*(x(i2) - x (i)) 
620 : IF h=0 THEN 800 

640 : t = (c2* (yO - y(i)) - cl* (xO - x (i) ) ) /h 

660 : IF t<0 OR t>=l THEN 800 

680 : m = m + 1 

70 0 : u (m) = x(i) + t*(x(i2) - x(i)) 

720 : v (m) = y(i) + t*(y(i2) - y(i)) 

740 : t = c2*(u(m) - uO) + cl*(v(m) - vO) 

760 : IF t<tl THEN tl = t: jl = m 

780 : IF t>12 THEN t2 = t: j2 = m 

800 : NEXT i 

820 IF m=0 THEN 

PRINT "kein Schraff-Schnittpunkt vorhanden" 
860 i 2 = 1: IF ABS(jl-j2)=l 

THEN 12 = 2: u (m+1) =u (1) : v (m+1) =v (1) 

880 : FOR i=i2 TO m STEP 2 

890 : il% = i8 + mx* (u (i)-x8) 

900 : jl% = j8 + my*(v(i)-y8) 

910 : i2% = i8 + mx* (u (i + 1) -x8) 

920 : j2% = j8 + my* (v (i + 1) -y8) 

930 : MOVE i1%,j1%: DRAW i2%,j 2%, 1 
940 : NEXT i 

950 NEXT d 
960 : 

980 a$=INKEY$ : IF a$="" THEN 980 
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wird für jede Begrenzungsgerade des geschlossenen n-Ecks dieser t-Wert in der Zeile 640 
berechnet. Die Koordinaten des Schnittpunktes Q(u,v) sind dann (siehe Zeilen 700,720): 

u = xl + t * (x2 - xl) 

v = yl + t * (y2 - yl) 

Sind x0,y0,xl,y I,x2,y2 und w vorgegeben, so kann durch die Berechnung von t entschieden 
werden, ob der Schnittpunkt Q zwischen P1 und P2 liegt. Die Koordinaten u,v des Schnitt¬ 
punktes können dann durch die obigen Gleichungen berechnet werden (s. Zeilen 700,720). 

In dem angegebenen Programm sind die 
Eckpunkte P1,P2,.. .,Pn der Fläche vorge¬ 
geben, d. h. xl,yl,x2,y2,.. .,xn,yn sind be¬ 
kannt. Die Koordinaten xi, yi sind in den 
Programmzeilen 160,170 abgelegt. Die Nu¬ 
merierung i= 1,2,3,.n der Eckpunkte 
wurde fortlaufend gewählt. Die zu schraf¬ 
fierende Fläche liegt immer links von dem 
Umlaufweg. Der Folgepunkt für Pn ist PI, 
d. h., es gilt x(n+l)=xl,y(n+l)=yl (Zei¬ 
le 460). In der Zeile 260 wird zunächst die 
Anzahl der Eckpunkte (n=8), der Abstand 
(d 1=5) der Schraffurlinien und der 
Schraffursteigungswinkel (w=45°) eingele¬ 
sen. Jene Eckpunkte, die den kleinsten bzw. 
größten senkrechten Abstand h von der 
Schraffurgeraden haben, werden in den 
Zeilen 360,370 und 380 ermittelt. 

In der Schleife 340 bis 400 werden die Koordinaten xi,yi der n-Eckpunkte gelesen (Zei¬ 
le 350) und die Nummer i 1 bzw. i2 des Eckpunktes mit dem kleinsten bzw. größten Abstand 
von der Schraffurgeraden ermittelt. Die Linie wird mit Hilfe der Zeilen 390 bis 430 gezeich¬ 
net. Durch 450 wird der n-te Punkt mit dem 1. Punkt verbunden. 

Der Wert d2 in der Zeile 480 entspricht dem Abstand zwischen P(i 1) und P(i2). Die Schleife 
in Zeile 500 teilt diesen Abstand d2 in entsprechend viele Schraffurabstände dl auf. Der 
Kern des Schraffurprogrammes wird durch die Zeilen 580 bis 800 gebildet. In der Zeile 600 
wird der Nenner h der t-Gleichung ermittelt. Ist die Strecke P(i+1)—P(i) parallel zur 
Schraffurgeraden, so ist h=0. In diesem Fall werden die restlichen Anweisungen der Schleife 
(640-800) übersprungen. Die Zeile 640 berechnet den t-Wert. Liegt der Schnittpunkt 
(Schraffurgerade mit der Geraden durch P(i),Pi+l)) zwischen P(i) und P(i+1), so werden 
die Zeilen 680 bis 780 abgearbeitet. Die Berechnung der Koordinaten u(m),v(m) für den 
Punkt Q erfolgt in den Zeilen 700 und 720. Die aktuellen Schraffurgeraden werden durch 
die Zeile 930 gezeichnet. Dieses Verfahren wird jetzt mit dem Abstand dl für die Ermitt¬ 
lung der weiteren Schraffurgeraden wiederholt. 
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Grafik 10: Schraffierte Fläche 
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6. Der Kreis 


Die folgende Einführung ist für Leser gedacht, die bisher noch keinen Kontakt mit trigono¬ 
metrischen Funktionen (sin(x),cos(x) usw.) hatten. Diese Funktionen werden in vielfacher 
Weise in der Computer-Grafik angewendet und sind im Standard-BASIC als Funktionen 
verfügbar. In der Abb. 10 ist ein Kreis dar¬ 
gestellt, der den Radius 1 hat. Einen sol¬ 
chen Kreis nennen wir Einheitskreis. Der 
Kreismittelpunkt und der Koordinatenur¬ 
sprung fallen zusammen. Die gestrichelt 
gezeichneten Strecken der Abb. 10 be¬ 
zeichnen wir mit cos(t) und sin(t). Wird der 
Punkt Q auf dem Einheitskreis weiterge¬ 
schoben, so ändern sich die Strecken 
cos(t),sin(t). Die Koordinaten von Q hän¬ 
gen davon ab, wie groß der Winkel t ist. 

Zum Messen des Winkels wollen wir die 
Länge t des Einheitskreis-Bogens verwen¬ 
den. Z. B. entspricht dem Bogen t=pi/2 
der Winkel t=90°. Einem Vollwinkel von 
t=360° entspricht am Einheitskreis die Bo¬ 
genlänge t=2*7c. Ist ein Winkel in Grad 
vorgegeben, so kann dieser Winkel durch 
Multiplikation mit 7t/180=0.01745329 in 
das Bogenmaß umgerechnet werden. Ist der Winkel im Bogenmaß bekannt, so kann der 
Computer die Werte von sin(t) und cos(t) ausrechnen. 

Geben wir am Computer 

PRINT C0SC1), SIN(1) 

ein, so zeigt der Rechner die Werte 0.540302306, 0.841470985 an, die in der Abb. 10 den 
gestrichelten Linien entsprechen. Der Winkel 1 (im Bogenmaß) entspricht 57.2957795°. 
Soll der Computer die Werte von trigonometrischen Funktionen ausrechnen, so muß der 
Winkel immer im Bogenmaß vorliegen. Bei einem Funktionsaufruf wie z. B. sin(t) muß t im 
Bogenmaß verwendet werden. Liegt der Winkel in Grad vor, so kann mit Hilfe der Schnei- 
der-BASIC Anweisung 

DEG 

auf die Umrechnung in das Bogenmaß verzichtet werden, denn nach dieser Anweisung kön¬ 
nen die Winkel im Winkelgradmaß vorliegen. Der Rechner interpretiert den vorliegenden 
Winkel im Winkelgradmaß und nicht im Bogenmaß. Diese Interpretation wird durch 



Abb. 10: Trigonometrische Funktionen 
am Einheitskreis 
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RAD 


wieder aufgehoben. Danach muß der Winkel im Bogenmaß vorliegen. 

Wenden wir den Strahlensatz auf Abb. 10 an, so ergeben sich die beiden Gleichungen 

x = r * cos(t) 
y = r * sin(t) 

Durchläuft t die Werte von 0 bis 2 tt (im Bogenmaß) bzw. von 0° bis 360° (im Winkelgrad¬ 
maß), je nach Interpretation, so ergeben diese beiden Gleichungen Punkte P(x,y) auf dem 
Kreis mit dem Radius r. Diese beiden Gleichungen stellen die Kreisgleichung in Parameter¬ 
darstellung dar, wobei der Kreismittelpunkt im Ursprung liegt. Für einen Kreis, dessen Mit¬ 
telpunkt nicht im Koordinatenursprung (0,0) sondern im Punkt P0(x0,y0) liegt, lautet die 
Parameterdarstellung des Kreises 

x = xO + r * cos(t) 
y = yO + r * sin(t) 

Durchläuft t die Werte von 0 bis 27t (im Bogenmaß) bzw. von 0° bis 360° (im Winkelgrad¬ 
maß), so liegen die Punkte P(x,y) auf einem Kreis mit dem Radius r und dem Kreismittel¬ 
punkt P0(x0,y0). 

Das folgende Programm 

100 REM- Wertetabelle fuer Kreispunkte - 

110 r = 5: xO = -1: yO = 2 
120 : 

130 PRINT " t x y" 

140 PRINT " (Grad)" 

150 PRINT " -" 

160 : 

170 DEG 

180 FOR t=0 TO 360 STEP 30 

190 : x = xO + r*COS (t) 

200 : y = yO + r*SIN(t) 

210 : PRINT USING "######.#"; t; 

220 : PRINT USING "#######.##"; x; 

230 : PRINT USING "#######.##"; y; 

240 : PRINT 

250 NEXT t 

berechnet eine Wertetabelle für die Punkte P(x,y) eines Kreises mit dem Radius 5 und dem 
Mittelpunkt P0(—1,2). Die Umrechnung des Winkels t (Grad) in das Bogenmaß kann ent¬ 
fallen, da in der Zeile 170 die Interpretation der Argumente von trigonometrischen Funk¬ 
tionen auf das Winkelgradmaß eingestellt wird. 
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Für die formatierte Ausgabe wird der 
PRINT USING-Befehl verwendet. Die er¬ 
ste Zeichenkette hinter PRINT USING gibt 
die Form an, in der die Werte ausgegeben 
werden sollen. Die zweite Zeichenkette 
hinter PRINT USING entspricht den aus¬ 
zugebenden Variablen. Das PRINT in der 
Zeile 240 beendet eine Ausgabezeile. Mit 
dem PRINT USING-Befehl kann in einfa¬ 
cher Weise eine tabellenförmige Ausgabe 
erzeugt werden, bei der die Dezimalpunkte 
der Zahlenkolonnen exakt untereinander 
stehen. 


t 

(Grad) 

X 

y 

0.0 

4.00 

2.00 

30.0 

3.33 

4.50 

60.0 

1.50 

6.33 

90.0 

-1.00 

7.00 

120.0 

-3.50 

6.33 

150.0 

-5.33 

4.50 

180.0 

-6.00 

2.00 

210.0 

-5.33 

-0.50 

240.0 

-3.50 

-2.33 

270.0 

-1.00 

-3.00 

300.0 

1.50 

-2.33 

330.0 

3.33 

-0.50 

360.0 

4.00 

2.00 



Grafik 11: Parameterdarstellung des Kreises 


Zum Zeichnen eines Kreises ist das folgende Programm nur geringfügig gegenüber dem 
vorhergehenden geändert worden: 

300 P.EM-Kreis zeichnen mit der- 

310 REM- Parameterdarstellung - 

320 MODE 1:BORDER 3:INK 0,12:INK 1,26 
330 r = 150: xO = 320: yO = 200 
3 40 : 
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350 ORIGIN xO, yO 

360 PLOT 0, 0, 1 

370 DEG 

380 FOR t=0 TO 360 STEP 30 

390 : x = r*COS (t) : y = r*SIN(t) 

400 : IF t>0 THEN MOVE xl, yl: DRAW x, y, 1 

410 REM- IF t>0 THEN MOVE 0, 0: DRAW x, y, 1 

420 : xl = x: vl = y 

430 NEXT t 

440 RAD 

450 : 

460 a$=INKEY$: IF a$="" THEN 460 

In der Zeile 320 wird zunächst der normalauflösende Bildschirm mit der Zeichenfarbe weiß 
(26) auf gelbem (12) Hintergrund eingeschaltet. Danach wird der Ursprung des Bildschirm¬ 
koordinatensystems in den Mittelpunkt P0(x0,y0) des Kreises verlegt (Zeile 350). Der Mit¬ 
telpunkt P0(x0,y0) hat jetzt die Koordinaten (0,0) und wird mit Hilfe der Anweisung 

PLOT 0, 0, 1 

markiert. Mit der Schrittweite von 30° (Zeile 380) werden aufeinanderfolgende Kreispunk¬ 
te P(x,y) berechnet (Zeile 390). Bei dieser Berechnung entfällt das Umrechnen von t in das 
Bogenmaß, da der Rechner durch Zeile 370 auf Gradmaßinterpretation umgeschaltet wird. 
Darüber hinaus ist die Addition der Kreismittelpunktskoordinaten xO und yO zu den Koor¬ 
dinaten der Kreispunkte P(x,y) überflüssig, weil der Ursprung des Bildschirmkoordinaten¬ 
systems im Mittelpunkt P0(x0,y0) liegt. Die aufeinanderfolgenden Kreispunkte werden 
durch eine Linie (Zeile 400) miteinander verbunden. Bei einer Schrittweite von 30° entsteht 
ein 12-Eck. Wird die Schrittweite verkleinert (z. B. 1°), so entsteht ein Kreis. Wenn wir die 
Zeile 410 aktivieren, indem wir „REM—“ löschen, so wird jeder berechnete Kreispunkt 
P(x,y) durch eine Linie mit dem Kreismittelpunkt P0(x0,y0) verbunden, und wir erhalten 
Grafik 11. 
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7. Die Ellipse 


Eine Ellipse entspricht einem gestauchten Kreis. Daher können viele Bemerkungen aus 
dem vorhergehenden Kapitel über Kreise übernommen werden. In der Computergrafik 
wird als Ellipsengleichung die Parameterdarstellung bevorzugt verwendet. 

Diese Darstellung 

x = xO + a * cos(t) 
y = yO + b * sin(t) 

benutzt den Parameter t zur Berechnung 
der x,y-Koordinaten der Ellipsenpunkte 
P(x,y). Der vorgegebene Ellipsenmittel¬ 
punkt hat die Koordinaten xO,yO. Die vor¬ 
gegebenen Ellipsenhalbachsen sind a und 
b. Der Sonderfall a=b ergibt einen Kreis mit 
dem Mittelpunkt P0(x0,y0) und dem Ra¬ 
dius r=a=b. Die Brennpunkte F1,F2 der 
Ellipse sind durch den Abstand 

e = sqr (a*a - b*b) 

vom Ellipsenmittelpunkt festgelegt. 

In dem folgenden Programm wird entsprechend der Gärtner-Konstruktion von einem Ellip¬ 
senpunkt P(x,y) zum Brennpunkt F2 (Zeile 465) und gegebenenfalls von P zu Fl (Zei¬ 
le 460) eine Linie gezeichnet (Grafik 12). In den Zeilen 470 und 475 wird ein neuer Ellip¬ 
senpunkt P(x,y) berechnet und in Zeile 485 wird gegebenenfalls von P1 nach P die Ellipsen- 
Rand-Linie gezeichnet. 

Werden zum Beispiel die Halbachsen a,b gemäß Zeile 480 gekürzt, so erhalten wir (t=0 bis 
t=15) eine modifizierte Grafik. In ähnlicher Weise können auch andere Ellipsenparameter 
verändert werden. Durch einen Programmlauf wird die Wirkung der Programmänderungen 
sichtbar (Grafik 12). 

400 REM - Ellipsen zeichnen - 

410 MODE 2:BORDER 2:INK 0,1:INK 1,24 
415 xO = 320: yO = 200 

420 a = 300: b = 160 

430 e = SQR(a*a - b*b) 

435 xl = xO + a: yl = yO 

440 : 

450 FOR t=0 TO 6.4 STEP 0.15 



Abb. 11: Ellipsenbezeichnungen 


38 



455 : REM- MOVE xl, yl: DRAW xO, yO, 1 

460 : REM- MOVE xl, yl: DRAW xO-e, yO, 1 

465 : MOVE xl, yl: DRAW xO+e, yO, 1 
470 : x = xO + a * COS (t) 

475 : y = yO + b * SIN (t) 

480 : REM- a=a/1.02 : b=b/1.01 

485 : REM- MOVE xl, yl: DRAW x, y, 1 

490 : xl = x: yl = y 

495 NEXT t 
500 : 

505 a$=INKEY$ : IF a$ = "" THEN 505 



Grafik 12: Gärtnerkonstruktion der Ellipse 
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8. Die Parabel 


Eine nach oben bzw. nach unten offene Parabel in einem x,y-System ist durch die Gleichung 


y(x) = a + b*x + c*x*x 


gegeben. Wenn wir eine solche Parabel zeichnen wollen, so müssen die Koeffizienten a,b,c 
bekannt sein. Auf das automatische Zeichnen von solchen Funktionen werden wir später 
eingehen. An dieser Stelle wollen wir eine 
Parabel darstellen, die durch die vorgege¬ 
benen Punkte P0(x0,y0), Pl(xl,yl), 

P2(x2,y2) geht. Die gesuchte Parabelglei¬ 
chung kann leicht aus dem Interpolations¬ 
polynom nach NEWTON erhalten werden. 

Hierzu berechnet man aus den vorgegebe¬ 
nen Koordinaten xO,yO,xl,yl,x2,y2 die 
Werte 

yl-yO 


d() = 


dl = 


d2 = 


xl-xO 

y2-yi 

x2—xl 

dl—dO 
x2—xü 



und erhält damit die Gleichung 

y(x) = yl + (x - xl) * (dO + d2*(x-x0)) 


der Parabel, die durch die Punkte P0,P1,P2 geht. Diese Formel können wir dadurch über¬ 
prüfen, indem wir x=xl einsetzen. Wir erhalten y=yl. Für x=xO ergibt sich y=yO und für 
x=x2 ergibt sich y=y2. In dem Programm 


100 REM- Parabel durch 3 Punkte - 

110 REM—- zeichnen nach Newton - 

120 MODE 2:BORDER 3:INK 0,3:INK 1,26 

130 MOVE 0, 0: DRAW 639, 0, 1: DRAW 639,399, 1 

140 DRAW 0,399, 1: DRAW 0, 0, 1 

150 : 


160 

FOR 

k=l 

TO 

5 


170 

yO = 

20 

+ 

319*RND (1) : 

xO = 60 

180 

yl = 

20 

+ 

359*RND (1) : 

xl = 320 

190 

x2 = 

639 

- 

yO/2 : 

y2 = 180 
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200 

210 

220 

225 

230 

240 

245 

250 

260 

270 

280 

290 

300 

310 

320 

330 

340 

350 

360 

370 

380 

390 

400 

410 

420 

425 

430 

435 

440 


MOVE xO-8i yO-8: DRAW xO-8, yO+8, 1 
DRAW xO+8i yO+8, 1: DRAW xO+8, yO-8, 1 
DRAW xO-8i yO-8i 1 

MOVE xl-10, yl: DRAW xl, yl+10, 1 
DRAW xl+10, yl, 1: DRAW xl, yl-10, 1 
DRAW xl-10, yl, 1 

MOVE x2, y2+10: DRAW x2+10, y2-10, 1 
DRAW x2-10, y2-10, 1: DRAW x2, y2+10, 1 

dO - (yl-yO)/(xl-xO) 
dl = (y2-yl) / (x2-xl) 
d2 = (dl-dO)/ (x2-x0) 

DEF FN y (x) = yl + (x-xl) * (dO + d2* (x-xO) ) 

xa = 0: xb = 639: dx = 10: ya = FN y(xa) 

: FOR x=xa+dx TO xb STEP dx: y = FN y(x) 

IF y<0 OR y>399 OR ya<0 OR ya>399 THEN 410 
: MOVE xa, ya: DRAW x, y, 1 

: xa = x: ya = y 

: NEXT x 

NEXT k 

a$=INKEY$: IF a$="" THEN 440 


wird in Zeile 120 der hochauflösende Bildschirm eingeschaltet. Als Zeichenfarbe wird weiß 
(26) und als Hintergrund- und Rahmenfarbe rot (3) verwendet. In den Zeilen 170,180,190 
werden die Koordinaten der Punkte P0,P1,P2 gewählt. Diese Punkte werden in den Zeilen 
210 bis 225,240 bis 250 und 270,280 markiert. In den Zeilen 300,310,320 werden die Hilfs¬ 
größen d0,dl,d2 für die Parabelgleichung berechnet. Diese Parabel wird durch die Zei¬ 
le 340 definiert. Die Schleife 380 bewirkt, daß x von xa bis xb läuft. In diesem Bereich wer¬ 
den die y-Werte berechnet und aufeinanderfolgende Punkte durch Linien verbunden (Zei¬ 
le 400). Die Zeile 390 überspringt das Zeichnen, wenn Parabelstücke außerhalb des Bild¬ 
schirmes liegen. Durch die k-Schleife (Zeile 160) werden 5 Parabeln gezeichnet (s. Gra¬ 
fik 13). 
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9. Demo-Grafiken 


In diesem Kapitel über Demo-Grafiken werden kurze Programme dargestellt, die geeignet 
erscheinen, ansprechende visuelle Darstellungen zu erzeugen. Der mathematische Hinter¬ 
grund dieser Programme wird erläutert, um so dem Leser die Gelegenheit zum weiteren Ex¬ 
perimentieren zu geben, ln vielen Fällen ist es leicht möglich, durch geringe Programmände¬ 
rungen künstlerische Assoziationen hervorzurufen. 


9.1 Diagonalnetz 

Einfache und interessante Grafiken lassen sich durch ein systematisch angeordnetes Linien¬ 
netz erzeugen. Dabei werden von einem Punkt ausgehende Linien zu verschiedenen ande¬ 
ren Punkten gezogen. Durch den Wechsel des Ausgangspunktes entstehen ansprechende 
Computergrafiken. Zum Beispiel ergibt sich ein gewölbtes Netz (s. Grafik 14), wenn von 
den Punkten P 1(0,399—y) zu den Punkten P2(y,0) Linien für y=0 bis 399 gezogen werden. 
Ein derartiges Programm sieht in Schneider-BASIC dann etwa so aus: 

20 REM- Netz zeichnen - 

30 MODE 2:BORDER 3:INK 0,3:INK 1,26 
35 : 

40 FOR y=0 TO 399 STEP 20 


50 : 

MOVE 

0,399-y: 

DRAW 

y, 0 , 

1 

60 : 

MOVE 

639, y: 

DRAW 

639-y,399, 

1 

70 : 

MOVE 

320,399-y: 

DRAW 

120+y,200, 

1 


80 NEXT y 
85 : 

90 a$=INKEY$: IF a$="" THEN 90 

Die Anweisungen in Zeile 50 verfahren nach dem obigen Schema. Die Anweisungen in der 
Zeile 60 sorgen für eine Spiegelung des Bildes auf die rechte Bildschirmseite. Die Zeile 70 
erzeugt die Figur in der Bildmitte. 

Das nun folgende Programm arbeitet mit zwei ineinander geschachtelten Schleifen. Beide 
laufen von 0 bis 640, mit der Schrittweite 80 (Zeilen 230,240). Nachdem in Zeile 210 die 
hochauflösende Grafik eingeschaltet wurde, werden weiße (26) Linien auf rotem (3) Grund 
von Pl(xl,yl) nach P2(x2,y2) gezogen. Die x-Koordinate x2 von P2 wird nach jeder Linie 
um 80 Bildpunkte verschoben (Schrittweite), während die y-Koordinate y2 den Wert 0 bei¬ 
behält (Zeile 240). Erreicht x2 den Wert 640, so wird der Punkt PI, gemäß der Schleife in 
Zeile 230, um 80 Bildpunkte (Schrittweite) nach rechts verschoben. Mit dem neuen An¬ 
fangspunkt erfolgen die gleichen Ausführungen. 
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200 

REM-EU aqonalnatz 

— 


210 

MODE 2:BORDER 3:INK 

0,3: 

INK 1,26 

220 

J 




230 

FOR xl=0 TO 

640 STEP 

80 


235 

yl = 400 




237 

REM-yl = 

400- (xl- 

320) 

"2/400 

240 

: FOR x2=0 

TO 640 STEP 

80 

250 

: MOVE xl, 

yl: DRAW 

x2 , 

y2 , 1 

260 

: NEXT x 2 




270 

NEXT xl 




290 

: 




295 

a$=INKEY$: 

IF a$="" 

THEN 

295 



Grafik 14: Liniennetz 

Wird in Zeile 237 „REM—“ entfernt, so wird y 1 in Abhängigkeit von xl berechnet und die 
y-Werte parabelförmig aufgetragen, so daß die Grafik 15 entsteht. 


9.2 Moiree-Effekt 

Das Wort „Moiree“ kommt von „Moare“ und bedeutet soviel wie Wasserlinienmusterung. 
Z. B. treten solche Muster bei der Überlagerung von Streifengittern auf dem Bildschirm auf. 
Dies ähnelt der physikalischen Interferenz in Wellenfronten. An dieser Stelle soll auf den 
Artikel von G. Oster und N. Nishijima mit dem Titel „Moiree Patterns“ in Scientific Ameri¬ 
can 1963, Seite 54 hingewiesen werden. 
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Grafik 15: Netz mit parabelförmig angeordneten Punkten 


Bei dem folgenden Programm benutzen wir die Möglichkeit, Bildschirmpunkte zu invertie¬ 
ren; d. h., einen gesetzten Punkt zu löschen und umgekehrt. Dies geschieht durch eine Än¬ 
derung des Farbstiftmodus. Im Normalfall werden beim Zeichnen von Grafiken vorher ge¬ 
zeichnete Grafiken einfach überdeckt. Ein Punkt, der mehrmals in verschiedenen Farben 
gezeichnet wurde, wird also in der Farbe des zuletzt benutzten Farbstiftes dargestellt. Dem¬ 
nach findet eine Überdeckung mehrfach gesetzter Bildschirmpunkte statt. Um dies zu än¬ 
dern, muß an den Rechner eine bestimmte Kommando-Sequenz gesendet werden. Dieses 
Kommando (Zeile 320) lautet: 

PRINT CHR$(23); CHR$(1); 

Von jetzt an werden gesetzte Punkte nicht mehr einfach überdeckt. Um diesen Grafikfarb¬ 
stiftmodus wieder aufzuheben, muß folgendes Kommando gegeben werden (Zeile 380): 

PRINT CHR$(23); CHR$(0); 

Da wir eine mehrfarbige Grafik erstellen wollen, arbeitet das Programm im Vielfarbmodus 
(MODE 0). Dieser Modus wird in der Zeile 305 eingeschaltet. Die gegenüber dem hoch¬ 
auflösenden Bildschirm deutlich geringere Auflösung beträgt 160x200 Punkte. 

In der Zeile 310 werden den Farbstiften 1,2,3 und 4 die Farben schwarz (0), rot (3), helles 
blaugrün (20), und hellgelb (24) zugeordnet. Durch BORDER 10 und INK 0, 13 wird die 
Rahmenfarbe blaugrün (10) und die Hintergrundfarbe weiß (13) eingeschaltet. Vom linken 
oberen Bildschirm-Eckpunkt P(0,400) und vom unteren rechten Eckpunkt P(639,0) wer¬ 
den Linien im Abstand von 20 Bildpunkten (Schrittweite in Zeile 335) zum gegenüberlie¬ 
genden y-Rand gezogen. Die linken Diagonalen werden mit dem Farbstift 1 also in schwarz, 
die rechten mit dem Farbstift 2 also in rot erstellt. 
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Die zweite Schleife (Zeile 360) veranlaßt das Linienzeichnen von P(0,400) und P(639,0) 
zum gegenüberliegenden x-Rand mit y-Werten von 0 bis 399 in der Schrittweite 10 (Zei¬ 
le 360). 



Grafik 16: Moiree-Effekt 


Wird die Zeile 325 aktiviert (REM— löschen), so lassen sich ellipsenförmige ineinanderge¬ 
schachtelte Figuren erkennen, die im Bereich der Eckpunkte besonders deutlich sind. Diese 
Figuren entstehen durch die geringe Auflösung und die damit verbundenen Spalten- bzw. 
Zeilensprünge beim Zeichnen von Linien. 


300 

REM— : 

Moiree-Effekt - 

- 

- 


30 5 

MODE 0: 

BORDER 10:INK 

0 

, 13 


310 

INK 1,0 

:INK 2,3:INK 3, 

n 

X. 

0 : INK 

4 , 24 

315 

: 





320 

PRINT CHR$ (23) ;CHR$ (1) 

J 



325 

REM- 

GOTO 360 




330 

: 





335 

FOR x = 0 

TO 639 STEP 20 




340 

: MOVE 

0 ,400: DRAW 

X 

, 0 , 

1 

345 

: MOVE 

639, 0 : DRAW 

X 

, 400 , 

2 

350 

NEXT x 





355 

: 





36 0 

FOR y=0 

TO 399 STEP 10 




365 

: MOVE 

0 ,400: DRAW 

639,y, 

3 

370 

: MOVE 

639, 0 : DRAW 


0 , y, 

4 

375 

NEXT y 
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380 PRINT CHRS (23) ;CHR$ (0) ; 

■D O R 

— 1 < 

390 a$=INKEY$: IF a$="" THEN 390 


9.3 Geschachtelte Sechsecke 

Mit Hilfe der Ellipsengleichung werden in dem folgenden Programm Sechsecke erzeugt. 
Die Parameterdarstellung (Zeilen 480,490) benutzt den Parameter t zur Berechnung der 
x,y-Koordinaten der Eckpunkte. Der Mittelpunkt (x0,y0), sowie die Ellipsen-Halbachsen 
a,b sind in der Zeile 430 festgelegt. Die Variable n wird in Zeile 415 mit der Anzahl der ge¬ 
wünschten Eckpunkte belegt. Für Sechsecke ist n=6. Der Zentriwinkel wO wird in Zeile 470 
durch die Multiplikation mit der jeweiligen Eckpunktnummer modifiziert und ergibt den 
Ellipsenparameter t. Dieser Parameter wird nicht in das Bogenmaß umgerechnet, da der 
Rechner nach Zeile 450 mit Gradmaß arbeitet. 

Die Anzahl der ineinandergeschachtelten Sechsecke ist auf 15 begrenzt (Zeile 520). Jeder 
Eckpunkt wird mit dem nachfolgenden durch eine Linie verbunden (Zeile 550). Danach er¬ 
halten die aktuellen Feldvariablen x(),y() die Koordinatenwerte des nächsten (kleineren) 
Sechseckes (Zeile 560 und 570). Diese Werte entsprechen den Mittelpunkten der bereits ge¬ 
zeichneten Linien. Ein Schließen des Sechseckes bewirkt die Zeile 590, indem für den 
(n+1 )-ten Punkt der erste Punkt gesetzt wird. Durch den Befehl MODE 1 in der Zeile 410 
wird der normalauflösende Bildschirm eingeschaltet. Die Anweisung BORDER 12 in der 
gleichen Zeile bewirkt das Einschalten der Rahmenfarbe gelb (12). 

Durch die Zeile 420 wird den vier Tintennummern 0,1,2 und 3 jeweils eine Farbnummer zu¬ 
geordnet. Dabei wird z. B. der Tinte mit der Nummer 2 die Farbe hellgrün (18) zugewiesen. 
Auf dem Bildschirm erscheinen also alle Linien, die mit dieser Tinte gezeichnet werden in 
hellgrüner Farbe (18). 

Durch die Programmzeilen 

540 f = f+1 

550 MOVE x(k),y(k): DRAM x(k+1),y(k+1), 1 + f MOD 3 

wird für jede Linie periodisch eine neue Tinte (eine neue Farbe) aus den Tinten 1,2 und 3 
ausgewählt. Dardurch wird also die 1. Linie hellgrün die 2. hellgelb und die dritte blau ge¬ 
zeichnet. 


400 

REM- 

— qeschachtelte Sechsecke — 

- 

410 

MODE 

1: * BORDER 12 


420 

INK 

0,1: INK 1,14: INK 2,18: INK 

3,24 

430 

xO = 

320: yO = 200: a = 300: b = 

200 

440 

n = 

6: wO = 360/n 


445 

: 



450 

DEG 



460 

FOR 

TT 

II 

o 

>-9 

O 

D 
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470 

rt 

II 


* wO 

48 0 

: x (k) 

= 

xO + a*COS (t) 

490 

: V (k) 

= 

yO + b*SIN(t) 

500 

NEXT k 



510 

RAD 



515 

: 



520 

FOR j=l 

TO 15 

530 

: FOR k 

= 

0 TO n-1 

540 

: f = f+1 

550 

: MOVE 

V 

(k) , y (k) : 


DRAW 

X 

(k + 1) ,y (k + 1) , 1 + f MOD 

560 

: x (k) 

= 

( x (k) + x (k + 1) ) / 2 

570 

: V (k) 

- 

( y (k) + y (k + 1) ) /2 

5 8 0 

: NEXT 

k 


59 0 

: x (n) 

= 

x (0) : y (n) = v (0) 

595 

NEXT j 



59 7 

: 



p. n o 
_• J 

a$ = INKEY 


: IF a$="" THEH 598 
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9.4 Diagonalen im n-Eck 

Auf den gleichen Grundlagen wie die Programme „Geschachtelte Sechsecke“ und „Einge¬ 
schriebene Vierecke“ basiert das Programm „Diagonalen im n-Eck“. 

In den Zeilen 680 und 690 wird die bekannte Parameterdarstellung der Ellipsengleichung 
mit dem Ellipsenparameter t, dem Mittelpunkt (x0,y0), und den Halbachsen a,b verwen¬ 
det. Der hochauflösende Bildschirm wird in der Zeile 610 mit der Hintergrundfarbe rot (3) 
und der Zeichenfarbe weiß (26) aktiviert. In der Schleife zwischen Zeile 660 und Zeile 700 
werden die x- und y-Koordinaten der n-Eckpunkte berechnet. Die beiden ineinanderge¬ 
schachtelten Schleifen der Zeilen 730 und 740 dienen dazu, von jedem errechneten Eck¬ 
punkt aus eine Linie (Zeile 750) zu jedem anderen Eckpunkt zu zeichnen. Um ein „Nach¬ 
ziehen“ bereits vorhandener Linien zu umgehen, läuft die zweite Schleife ab dem um 1 er¬ 
höhten aktuellen Wert der ersten Schleife, d. h. von(k+l)bisn. Ist z. B. eine Linie vom Eck¬ 
punkt 1 zum Eckpunkt 2 gezogen worden, so ist das Zeichnen der Linie vom Punkt 2 zum 
Punkt 1 nicht mehr erforderlich (Zeile 740). 



Grafik 18: Diagonalen im n-Eck 


Wird die Anzahl der Eckpunkte n (Zeile 630) erhöht (n> 10), so ist eine zusätzliche Di¬ 
mensionierung erforderlich. Es kann beispielsweise durch den Einschub der folgenden Zei¬ 
le 

640 DIM x(n), y(n) 

dem Rechner mitgeteilt werden, daß n-Speicherplätze für die indizierten Variablen x(n) und 
y(n) benötigt werden. 
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600 
610 
620 
630 
640 
650 
660 
670 
680 
690 
700 
710 
720 
7 30 
740 
750 
760 
770 
780 
790 


REM- 

Diaqon 

al 

en im n- 

Eck- 


MODE 2 : 

BORDER 

2 

:INK 0,3 

: INK 1 , 

2 6 

xO = 3 2 

0 : yO 

= 

200: a = 

280 : b 

= 190 

n = 10: 

wO = 

360/n 



DEG 






FOR k = l 

TO n 





: t = 

k * wO 





: x (k) 

= xO 

+ 

a *COS (t) 



: V (k) 

= yO 

+ 

b * SIN(t) 



NEXT k 






RAD 






FOR k = l 

TO n- 

1 




: FOR 

j = k + l 

TO 

n 



: MOVE 

x (k) , 

y 

(k) : DRAW x (j) , 

y (j) . 

: NEXT 

j 





NEXT k 







a$=INKEY$: IF a$="" THEN 790 


1 


9.5 Röhrengrafik 

Bei den nächsten drei Demoprogrammen werden wir uns mit dem Zeichnen von Kreisen be¬ 
fassen. Um interessante Grafiken zu erzeugen, verfahren wir ebenso wie bei den vorherge¬ 
henden Programmen. Wir reihen systematisch eine Vielzahl von Kreisen aneinander, so daß 
Feder-, Spiralen-, Röhrenbilder usw. entstehen. Der Nachteil beim Zeichnen von Kreisen ist. 
die langsame Verarbeitungsgeschwindigkeit. Daher ist es beim Ausprobieren unter Um¬ 
ständen sinnvoll, das Zeichnen von Kreisen durch das bedeutend schnellere Zeichnen von 
Rechtecken zu ersetzen. Zum Überprüfen können wir uns den Mittelpunkt durch 

PLOT x, y, 1 

mit ausgeben lassen. Bei dem folgenden Programm werden zum Testen die Zahlen 170 bis 
200 aktiviert (REM— löschen) und die Zeilen 220 bis 290 deaktiviert (REM hinter Zeilen¬ 
nummer einschieben). Es entsteht die Grafik 19. 

Werden dagegen die Zeilen 220 bis 290 wieder aktiviert (170—200 deaktivieren), so ergibt 
sich die Grafik 20. 

Das Demoprogramm für die Röhrengrafik berechnet nach dem Einschalten des hochauflö¬ 
senden Bildschirmes in den Zeilen 150,160 die Mittelpunktkoordinaten x,y. Dann wird 
durch die Schleife in der Zeile 240 ein Kreis (Grafik 20) mit dem festen Radius 80 um die- 
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Grafik 20: Röhrengrafik mit Kreisen 


sen Mittelpunkt gezeichnet. Die Anzahl der Kreise ist durch die Schleife in Zeile 140 festge¬ 
legt. 

100 REM- Roehren-Grafik 1 - 

110 MODE 2:BORDER 3:INK 0,1:INK 1,26 
120 r = 80 
130 : 
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140 FOR t=l TO 10 STEP 0.2 
150 ; x = 340 +200*COS (t/2) 

160 : y = 260 -160*SIN (t/3) 

170 REM-— PLOT x, y, 1 

180 REM- MOVE x-r, y+r: DRAW x+r, y+r, 1 

190 REM- DRAW x+r, y-r, 1: DRAW x-r, y-r, 1 

200 REM- DRAW x-r, y+r, 1 

210 : 

220 : ORIGIN x, y 
230 : DEG 

240 : FOR a = 0 TO 360 STEP 10 

250 ; x 2 = r*COS(a): y2 = r*SIN(a) 

260 : IF a>0 THEN MOVE xl, yl:DRAW x2, y2, 1 

270 : x1 — x2 * yl = y2 

280 : NEXT a 

290 : RAD 

300 : 

310 NEXT t 
320 : 

330 a$=INKEY$: IF a$="" THEN 330 

Bei dem folgenden Programm werden in den zeilen 330,335 die Mittelpunkte der Kreise be¬ 
rechnet. Die Radien der Kreise ändern sich (Zeile 340). Der Radius wird jetzt in Abhängig¬ 
keit von t berechnet (t 3 /4). Dies führt zu einem kontinuierlichen Anwachsen der Halbmes¬ 
ser, wobei t durch die Schleife (Zeile 320) vorgegeben wird. Anstelle von Kreisen (Zeilen 
400—450) können wir auch Rechtecke (Zeilen 370—390) zeichnen. 



Grafik 21: Kreise mit veränderlichem Radius 
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300 REM- Roehren-Grafik 2 - 

310 MODE 2:INK 0,0:INK 1,26 
315 : 

320 FOR t=4 TO 8.4 STEP 0.1 


330 

: xO 

= 340 

+ 200*COS (t) 


335 

: yO 

= 340 

-300*SIN (t/3) 

340 

: h = 

t*t* 

t/4 


360 

370 

REM- 

MOVE 

xO-h,yO+h: 

DRAW xO+h,yO+h, 1 

380 

REM- 

DRAW 

xO+h,yO-h, 

1:DRAW xO-h,yO-h, 

390 

REM- 

DRAW 

xO-h,y0+h, 

1 


395 : 

400 : ORIGIN xO, yO 
405 : DEG 

410 : FOR a=0 TO 360 STEP 10 
415 : x2 = h*COS (a) : y2 = h*SIN(a) 

420 : IF a>0 THEN MOVE xl,yl:DRAW x2, y2, 1 

430 : xl = x2: yl = y2 

440 : NEXT a 

450 : RAD 

460 : 

470 NEXT t 
480 : 

490 a$=INKEY$: IF a$="" THEN 490 


1 


Beim nächsten Programm zum Zeichnen von Kreisen ist in Zeile 720 die Mittelpunktkoor¬ 
dinate yO, der Radius r und der Zentriwinkel w hinterlegt. Die x-Koordinate des Mittel¬ 
punktes läuft in der Schleife der Zeile 740 von 280 bis 360 mit der Schrittweite 20. Die 
Schleife in Zeile 770 veranlaßt das Zeichnen eines Kreises mit dem Mittelpunkt x0,y0, der 
Schrittweite 10°, dem Radius r und dem Farbstift 1. 

Dieser Kreis (Schleife in Zeile 770) ist der Mittelpunkt von 6 weiteren Kreisen, deren An¬ 
zahl durch die Schleife in Zeile 820 festgelegt ist (s. auch w in Zeile 720). Die Zeilen 
830,840 berechnen die x- und y-Koordinaten des Mittelpunktes (x,y) in Abhängigkeit von 
dem Schleifenzähler. Anschließend wird um den neu errechneten Mittelpunkt ein Kreis mit 
dem Radius r gezeichnet (Zeile 860—900). 


700 REM- Kreise zeichnen - 

710 MODE 2:BORDER 3:INK 0,0:INK 1,26 
720 w = 60: yO = 200: r - 100 
725 : 

730 DEG 
735 : 

740 FOR xO = 280 TO 360 STEP 20 
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Grafik 22: Geschachtelte Kreise 


745 : 

750 : 

760 ORIGIN X0,y0 

770 FOR a=0 TO 360 STEP 10 

780 : x 2 = r *COS (a) : y2 = r*SIN(a) 

790 : IF a > 0 THEN 

MOVE xl, yl: DRAW x2, y2, 1 
800 : xl = x2: yl = y2 
810 NEXT a 
815 : 

820 FOR n=l TO 6 
825 : 

830 : x = xO + r*COS(n*w) 

840 : y = yO + r*SIN(n*w) 

845 : 

850 : ORIGIN x, y 

860 : FOR a=0 TO 360 STEP 
870 : x2 = r *COS (a) : y2 

880 : IF a>0 THEN 

MOVE xl, yl:DRAW 
890 : xl = x2: yl = y2 

900 : NEXT a 

905 : 

910 NEXT n 


10 

= r *SIN (a) 
x2, y2, 1 
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9 20 : 

925 : 

940 NEXT >:0 
945 : 

950 RAD 
9 5 5 : 

960 a$ = INKEY$: IF 3$ = '"' TH EM 960 

9.6 Turtle-Grafik 

Schöne Muster und Grafiken lassen sich mit dem folgenden Programm generieren. Überra¬ 
schend ist die Vielfalt von künstlerisch ansprechenden Bildern, die bei einer Parameterva¬ 
riation entstehen. Die Programmiersprache LOGO ermöglicht in einfachster Weise das 
Programmieren von solchen Turtle-Grafiken. Hierzu ist das Buch „Turtle Geometrie, the 
Computer as a Medium for Exploring Mathematics“ von Harold Abelson und Andrea di Se- 
sa (Cambridge Verlag, MIT — Press 1981) zu nennen. 

Um im folgenden Programm die Parameter sinnvoll variieren zu können, ist eine Erläute¬ 
rung zur Turtle-Grafik erforderlich. Im Kapitel 9 „Parameterdarstellung der Ellipse“ wur¬ 
den die Gleichungen 

x = xO + a * C0S(t) 
y = yO + b * SIN(t) 


angegeben. Die Ellipsen-Halbmesser sind mit a,b und die Koordinaten des Ellipsen-Mittel- 
punktes mit x0,y0 bezeichnet. Die Verbindungsgerade vom Mittelpunkt (x0,y0) zum Ellip¬ 
senpunkt (x,y) nennen wir vereinfachend „Radius“. Der „Radius“ bildet mit der x-Achse 
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Grafik 24: Turtle-Grafik für td=241 


den Winkel t. Eine Umrechnung dieses Winkels in das Bogenmaß entfällt hier, da der Rech¬ 
ner durch die Zeile 660 auf Gradmaß eingestellt wird. 


600 

REM- Turtle-Graphik — 

-- 

610 

MODE 2:BORDER 9:INK 0,0: 

INK 1,18 

620 

a =20: b =a/1.6: ad =4: 

bd =ad/1.6 

630 

td = 182: t = 90 


640 

xO = 320: yO = 200 


650 




660 

DEG 


665 




670 

x = xO + a * COS(t) 


680 

y = yO + b * SIN (t) 


690 




700 

WHILE x>0 AND x<639 AND 

y>0 AND y<399 

710 


x = xO + a * COS(t) 


720 


y = yO + b * SIN (t) 


730 


MOVE xO, yO: DRAW x, 

y, 1 

740 


ii 

o 

>. 

II 

o 


750 


t = t + td 


760 


a = a + ad 


770 


b = b + bd 


780 

WEND 


790 




800 

RAD 
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Grafik 25: Turtle-Grafik für td=90.4 


805 : 

810 a$=INKEY$: IF a$ = "" THEN 810 

In der Zeile 740 wird der Ellipsenpunkt (x,y) als neuer Ellipsen-Mittelpunkt (xO,yO) ver¬ 
wendet. Der Winkel t zwischen dem „Radius“ und der x-Achse wird in der Zeile 750 um 
den Winkel td erhöht. Der Parameter td beschreibt die Winkeländerung des „Radius“. Die 
angegebenen Grafiken entstanden durch unterschiedliche Eingaben (Zeile 630) von td bei 
sonst ungeändertem Programm. In den Zeilen 760,770 werden die Halbachsen a,b um 
ad,bd vergrößert. Diese Vergrößerungen werden so lange ausgeführt, bis ein zu zeichnender 
„Radius“-Endpunkt (x,y) außerhalb des Bildschirmes liegt (Zeile 700). 

Das folgende Programm (Zeilen 800 ff.) ist ähnlich aufgebaut und ermöglicht z. B. das 
Zeichnen von Sternen. In den Zeilen 870,880 sind die Formeln der Parameterdarstellung 
einer Ellipse enthalten. Die Halbachsen a,b sind nicht konstant, sondern werden in der Zei¬ 
le 860 verändert. 

800 REM- Stern-Grafiken - 

810 MODE 2:BORDER 9:INK 0,0:INK 1,18 
820 td = 0.1: n = 7 

830 xO = 320: yO = 200: b = 120 

835 : 

840 FOR a=100 TO xO-b STEP (xO-b)/20 
850 : FOR t=0 TO 6.4 STEP td 

860 : r = a + b*COS (n*t) 

870 : x = xO + r *COS (t) 

880 : y = yO + r*SIN (t)/1.5 

890 : IF x<0 OR x>639 OR y<0 OR y>399 THEN 950 
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Grafik 26: „Blume“ für td=0.1 


900 : IF t<>0 THEN MOVE xl, yl: 
910 : xl = x: yl = y 
920 : NEXT t 
930 NEXT a 
940 : 

950 a$=INKEY$: IF a$= n " 


DRAW x, y, 1 


THEN 950 







Die Schleifengrenzen in der Zeile 850 bewirken, daß (vereinfacht dargestellt) der „Radius“ 
n Umläufe ausführt. Dabei erreichen die Halbachsen a,b (Zeile 860) n mal ihren Extrem¬ 
wert. Die Bilder 26,27,28 entstanden durch Variation von td (Zeile 820). Interessante Figu¬ 
ren ergeben sich z. B. auch für n=2,n=4,n=7. 



Grafik 28: „Pfeil “für td=0.7 


9.7 Demo-Grafik mit Rechtecken 

Durch das folgende Programm werden mittels einfacher Anweisungsfolgen geschachtelte 
Rechtecke auf den Bildschirm gezeichnet. Dabei wird zunächst der hochauflösende Bild¬ 
schirm und die Rahmenfarbe violett (5) eingeschaltet (Zeile 510). In der gleichen Zeile wird 
die Hintergrundfarbe auf grün (9) und die Zeichenfarbe auf weiß (26) gesetzt. Die Zei¬ 
le 520 bestimmt die Anzahl und den Abstand der in den Zeilen 550 bis 570 zu zeichnenden 
Rechtecke. Die x- und y-Ausdehnung der Rechtecke wird in der Zeile 540 festgelegt. Wird 
der Wert 35 des Ausdruckes y=35*sqr(t) erhöht, so erfolgt eine Ausdehnung in y-richtung. 

500 REM- Rechtecke - 

510 MODE 2:BORDER 5:INK 0,9:INK 1,26 
515 : 

520 FOR t=10 TO 100 STEP 4 
530 : 
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Grafik 29: Geschachtelte Rechtecke 


540 : y = 35 * SQR (t) : x = t*t/17 
550 : MOVE 320-X/2, 200+y/2 
555 : DRAW 320+X/2, 200+y/2, 1 
560 : DRAW 320+X/2, 200-y/2, 1 
565 : DRAW 320-X/2, 200-y/2, 1 
570 : DRAW 320-X/2, 200+y/2, 1 
580 : 

590 : REM-y = 20 * SQR(t): x = t*t/25 

600 : REM- MOVE 500-x, 100+y 

605 : REM- DRAW 500 , 100+y, 1 

610 : REM - DRAW 500 , 100 , 1 

615 : REM- DRAW 500-x, 100 , 1 

620 : REM - DRAW 500-x, 100+y, 1 

630 : 

640 : REM*** y = 35 * SQR (t) : x = t*t/17 
650 : REM*** MOVE 30+x, 370-y 
655 : REM*** DRAW 30 , 370-v, 1 

660 : REM*** DRAW 30 , 370 ’ , 1 

665 : REM*** DRAW 30+x, 370 , 1 

670 : REM*** DRAW 30+x, 370-y, 1 
680 : 

690 NEXT t 

700 a$-INKEY$ : IF a$="" THEN 700 
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Grafik 30: Geschachtelte Rechtecke 



Grafik 31: Geschachtelte Rechtecke 


Dies gilt in umgekehrter Form auch für den Wert 17 der x-Gleichung (Zeile 540). Vom Mit¬ 
telpunkt (320,200) der Figur werden sich vergrößernde Rechtecke (s. Grafik 29) gezeich¬ 
net (Zeilen 550—570). Aktivieren wir die Zeilen 640 bis 670 und deaktivieren 540 bis 570, 
so werden zu den Koordinaten der linken oberen Ecke (30,370) die x-Ausdehnung addiert 
und die y-Ausdehnung subtrahiert. Es werden also von der linken oberen Ecke sich vergrö¬ 
ßernde Rechtecke gezeichnet (Grafik 30). Aktivieren wir die Zeilen 590 bis 620, so wird der 
Festpunkt nach rechts unten (500,100) verschoben und die x- und y-Ausdehnung der Recht¬ 
ecke verringert. 
















9.8 Eingeschriebene Vierecke 

Zur Erklärung der folgenden Demo-Grafik 
betrachten wir das Viereck der Abb. 13. Die 
Koordinaten der Eckpunkte x(0),y(0), 
x(l),y(l), x(2),y(2), x(3),y(3) seien be¬ 
kannt. Durch die Anweisungen MOVE 
x(i),y(i): DRAW x(i+l),y(i+l),l wird eine 
Linie vom i-ten zum (i-E 1 )-ten Eckpunkt 
gezeichnet (Zeile 670). Damit z. B. die 
Schleife 

665 FOR i=0 TO 3 
670 MOVE x(i),y(i): 

DRAW x(i+1),y(i+1),1 
710 NEXT i 



Abb. 13: Parameterdarstellung der 

Verbindungsgeraden von P1 nach P1 


ein vollständiges Viereck zeichnet, ist vorher 

x(4) = x(0), y(4) = y(0) 

zu setzen (Zeile 715). Mit Hilfe der Parameterdarstellung der Geraden 

x = xCi) + t * (x(i+1) - x(i)) 
y = y(i) + t * (y(i+1) - y(i)) 

kann auf der Verbindungslinie zwischen dem i-ten und (i+l)-ten Eckpunkt ein Zwischen¬ 
punkt gewählt werden. Innere Teilungspunkte ergeben sich, wenn t zwischen 0 und 1 liegt 
(Zeile 655). ln den Zeilen 700,705 werden die Koordinaten dieser inneren Punkte berech- 
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net und als neue Eckpunkte in die Variablen x(i),y(i) gespeichert. Beim Zeichnen ergibt sich 
eine Folge von eingeschriebenen Vierecken, deren Ecken auf den Seiten des vorher gezeich¬ 
neten Viereckes liegen. Durch die Zeilen 675 bis 685 wird der jeweilige Endpunkt der ge¬ 
zeichneten Linie mit einem kleinen Rechteck markiert. 

Für die erstmalige Besetzung der Eckpunkte wird die Parameterdarstellung der Ellipse 
(Zeile 635,640) benutzt. Die Werte von a,b (Zeile 610) bestimmen die Breite und Höhe der 
Grafik. Wird z. B. a kleiner gewählt, so wird die Figur in x-Richtung gestaucht. Der Mittel¬ 
punkt der Figur ist durch x0,y0 (Zeile 610) festgelegt. Der Wert n=4 (Zeile 615) legt fest, 
daß es sich um ein Viereck handelt. Die beiden folgenden Grafiken (32,33) ergeben sich für 
n=4 bzw. n= 10. 



Grafik 33: Eingeschriebene Zehnecke (n=10) 


600 REM- Eingeschriebene Vierecke - 

605 MODE 2:BORDER 2:INK 0,1:INK 1,24 
610 xO = 320: y0 = 200: a = 260: b = 190 
615 n = 4: wO = 2*PI/n 
620 : 

625 FOR i=0 TO n 

630 : t = i * wO 

635 : x (i) = xO + a*COS (t) 

640 : y (i) = yO + b*SIN(t) 

645 NEXT i 
650 : 

655 t = 0.1 

660 FOR j=l TO 5*n 
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665 : FOR i=0 TO n-1 
670 : MOVE x (i) , y (i) 

675 : MOVE x(i + l)-6, 

677 : DRAW x (i + 1)+6, 

680 : DRAW x (i+1)+6, 

682 : DRAW x (i + 1)-6, 

685 : DRAW x (i+1) -6 , 

700 : x (i) = x (i) + t 

705 : y (i) = y (i) + t 

710 : NEXT i 
715 : x (n) = x (0) : y (n) 
720 NEXT j 
722 : 

725 a$=INKEY$: IF a$="" 


: DRAW x (i + 1) , y (i + 1) , 1 

y (i + 1) +6 

y(i+l)+6, 1 

y(i + l)-6, 1 

y(i + l)-6, 1 

y(i + l)+6, 1 

* ( x(i + l) - x(i) ) 

* ( y (i + 1) - y(i) ) 

= y (0) 


THEN 725 


9.9 Lissajous-Figuren 

LISSAJOUS-Figuren sind ebene Kurven, die durch die Überlagerung zweier in unter¬ 
schiedlicher Richtung erfolgender Schwingungen entstehen. Wir bezeichnen die Frequen¬ 
zen der Schwingungen in x- bzw. in y-Richtung mit n bzw. m und beschreiben diese Schwin¬ 
gungen durch 

x = xO + a * cos(n*t) 
y = yO + b * sin(m*t). 

Hierbei sind a,b die x,y-Amplituden der Schwingungen. Der Parameter t beschreibt z. B. die 
Zeit. 

In der Zeile 835 des folgenden Programmes zum Zeichnen von LISSAJOUS-Figuren wird 
lediglich eine Umrechnung des Winkels w ins Bogenmaß durchgeführt. Schreitet die Zeit 1 
fort, so bilden bei ganzzahligen Werten von n,m diese Kurven geschlossene Linien. Als Bei¬ 
spiel für eine LISSAJOUS-Figur ist für n=3,m=4 und der Schrittweite d=5 (Grafik 34) ei¬ 
ne solche geschlossene Linie dargestellt. 

800 REM - Lissajous-Figuren - 

810 xO = 320: yO = 200: a = 300: b = 190 

815 d = 5: n = 3: m = 4: tO = PI/180 
820 MODE 2:BORDER 2:INK 0,3:INK 1,26 
825 : 

830 FOR w=0 TO 180*d STEP d 

835 : t = w * tO 

840 : x = xO + a*COS (n*t) 

845 : y = yO + b*SIN (m*t) 
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860 : IF t<>0 THEN MOVE xl, yl: DRAW x, y, 1 
870 : xl = x: yl = y 
880 NEXT w 
885 : 

890 a$=INKEY$: IF a$="" THEN 890 



Grafik 34: LISSAJOUS-Figur mit d=5,n=3,m=4 



Grafik 35: LISSAJOUS-Figur mit d=77,n=l,m=2 
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Wird die Schrittweite d verändert, so werden weiter auseinanderliegende Kurvenpunkte 
durch Geraden verbunden. Durch Variation von n,m ergeben sich dann die vielfältigsten 
Grafiken (s. Grafiken 35 bis 42). 



Grafik 36: LISSAJOUS-Figur mit d=77,n=2,m=l 



Grafik 37: LISSAJOUS-Figur mit d=77,n=2,m=3 


66 









Grafik 38: LISSAJOUS-Figur mit d=77,n=3,m=2 



Grafik 39: LISSAJOUS-Figur mit d=94,n=I,m=l 
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Grafik 40: LISSAJOUS-Figur mit d=94,n=2,m=2 



Grafik 41: LISSAJOUS-Figur mit d=94,n=l,m=2 
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Grafik 42: LISSAJOUS-Figur mit d=94,n=l,m=3 
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10. Zeichnen von Funktionen 


10.1 Funktionen in kartesischer Darstellung 

Funktionen stellen eine mathematische Beschreibung von gegenseitigen Abhängigkeiten 
dar. In allen wissenschaftlichen Disziplinen werden Funktionen zur Beschreibung dieser 
Abhängigkeiten genutzt. Wir gehen davon aus, daß eine Funktion y=y(x) als Formel vorge¬ 
geben ist, wie z. B. y=sin(x). Für eine solche Funktion kann man eine Wertetabelle aufstel¬ 
len. Durch das Programm 

120 x8 =-4: x9 = 4.0: dx = 0.2 
150 F0R x=x8 T0 x9 STEP dx 
160 y = SIN(x) 

240 PRINT x, y 
260 NEXT x 

wird zu dem jeweiligen Wert x der Funktionswert y (Zeile 160) berechnet und ausgegeben 
(Zeile 240). In der Zeile 120 sind die x-Grenzen x8,x9 und die Schrittweite dx hinterlegt. 
Im Gegensatz zur Wertetabelle ermöglicht die grafische Darstellung einer Funktion einen 
umfassenden Überblick. Daher werden grafische Darstellungen funktionaler Zusammen¬ 
hänge vielfach bevorzugt angewendet. Zum Aufträgen der Wertepaare x,y auf dem Bild¬ 
schirm ist die Umrechnung von x,y in die physikalischen Bildschirmkoordinaten 
(0<=i% <=639,0<=j%<=399) erforderlich. 

In der Zeile 140 des folgenden Programmes wird der Umrechnungsfaktor mx mit Hilfe des 
kleinsten (x8) und größten (x9) x-Wertes und my (Zeile 145) mit Hilfe des kleinsten (y8) 
und größten (y9) y-Wertes ermittelt. Da in der Zeile 130 i9=560.5 und nicht i9=639.5 ver¬ 
wendet wird, wird mx (Zeile 140) zu klein. Die Kurve (siehe Grafik 43) erreicht nicht den 
rechten Bildrand. In den Zeilen 170,175 wird der zu x,y gehörende Pixel (Bildpunkt) i%,j% 
berechnet. In der Zeile 240 wird eine Linie von iljl nach i%,j% gezeichnet. Der Wert dx 
wurde mit 0.2 hinreichend klein gewählt. 

Deshalb vermitteln die aufeinanderfolgenden Sehnenzüge (Zeile 240) ein „gerundetes“ 
Bild des Kurvenverlaufes für x=sin(x). Zusätzlich können wir jeweils an der Stelle i% eine 
senkrechte Linie vom Kurvenpunkt (i%,j%) zur Nullinie (y=0) zeichnen lassen (s. jO,Zeile 
145,230). Entsprechendes gilt für x0=0 (s.iO,Zeile 140,220). Wirerhalten Grafik 43. Akti¬ 
vieren wir die Zeilen 190 bis 205, indem wir „REM“ löschen, so werden um den jeweiligen 
Mittelpunkt (i%,j%) Vierecke gezeichnet. Die Größe dieser Vierecke nimmt von links nach 
rechts zu (Grafik 44). Durch die aktivierte Zeile 210 werden alle Kurvenpunkte (i%,j%) 
mit dem Punkt P(x=x8,y=y0) durch Linien verbunden, ln ähnlicher Weise sind natürlich 
weitere Programmänderungen möglich. 

Sollen andere Funktionen grafisch dargestellt werden, so ist diese Funktion in der Zeile 160 
einzugeben. 
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Grafik 43: Funktion y(x)=sin(x) 



Grafik 44: SIN-Funktion mit den zusätzlich aktivierten Zeilen 190—205,220 


Damit die Kurve zwischen dem oberen und unteren Bildrand liegt, muß der größte (y9) und 
der kleinste (y8) Funktionswert y in der Zeile 125 hinterlegt werden. Ebenso ist in der Zei¬ 
le 120 der gewünschte Zeichenbereich x8,x9 und die Schrittweite dx einzugeben. 

100 REM- sinQ-Funktion zeichnen - 

110 MODE 2:BORDER 2:INK 0,1:INK 1,26 
120 x8 =-4: x9 = 4: dx = 0.2 
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125 

127 

130 

135 

137 

140 

145 

147 

150 

160 

170 

175 

177 

190 

200 

205 

210 

220 

225 

230 

240 

250 

260 

270 

280 


y8 

=— 

1 . 4 

: y9 = 

1.4: 

xO = 0: 

: yO = 

= 0 



i 8 

= 

0.5 

: i 9 = 

560.5 






j 8 

= 

0.5 

: j 9 = 

399.5 






mx 

= 

(19 

-iS) / (x 

9-x 8) 

: iO = 

i 8 + 

mx* 

(xO 

-x8) 

my 

= 

Cö 9 

- j 8) / (y9-y8) 

: jO = 

j 8 + 

my * 

(y0- 

-y8) 

FOR 

: x 

= x8 

TO x9 

STEP 

dx 





: 

y 

= C , 

IN (x) 







: 

i% 

= 

i 8 + mx 

* (X 

-x 8) 






: j% = j8 + my * (y-y8) 

REM+++ MOVE i%-i%/8ij%: DRAW i%,j%+i%/8, 1 
REM+++ DRAW i%+i%/8,j%, 1: DRAW i%,j%-i%/8, 
REM+++ DRAW i%-i%/8.j%i 1 
REM*** MOVE i%.j%: DRAW 1 8 , j 0 , 1 
REM-MOVE i%ij %: DRAW 10,j%, 1 

: MOVE 1%,j%: DRAW i%,j0, 1 

: IF x< >x8 THEN MOVE il.jl: DRAW l%,j°/o, 1 

: i1 = i% : j1 = j% 

NEXT x 

a$=INKEY$: IF a$ = "" THEN 280 


1 


10.2 Zeichnen von Parameterfunktionen 

Als Ergänzung zum vorhergehenden Programm wollen wir nun parameterabhängige Funk¬ 
tionen x=y(x,a) grafisch darstellen. Für verschiedene Amplitudenwerte a soll z. B. die SI- 
NUS-Funktion y=a*sin(x) gezeichnet werden. Solchen Funktionen entsprechen Schwin¬ 
gungen, deren maximale Auslenkungen durch a gegeben sind. Die Änderung des Parame¬ 
ters a geschieht durch die Schleife der Zeile 355. Hierbei läuft x jeweils von x8 bis x9 mit ei¬ 
ner Schrittweite dx (Zeile 360). Für jeden a-Wert wird eine SINUS-Linie gezeichnet. Der 
mehrfache Durchlauf der a-Schleife liefert Kurvenscharen (s. Grafik 45). Damit alle Kur¬ 
venteile auf dem Bildschirm gezeichnet werden, ist der kleinste (y8) und größte (y9) Ordi- 
natenwert y (s. Zeile 325) ausreichend zu setzen. Damit wir aus der grafischen Darstellung 
der Funktion auch Zwischenwerte ablesen können, werden durch die beiden Schleifen 510 
und 550 Achsenmarkierungen gezeichnet. Die Schrittweite in x-Richtung ist durch dx gege¬ 
ben, d. h. die x-Achsenmarkierungen laufen von x8 bis x9 mit der Schrittweite dx. Die 
y-Achsenmarkierungen unterteilen den Bereich von y8 bis y9 in 20 Teile (Zeile 550). 
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Grafik 45: Parameterfunktion mit a = 2,4,6,8,10 
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Grafik 46: Parameterfunktionen im Gitternetz 

Soll anstelle der kurzen Achsenstrichelchen (s. Grafik 45) ein durchlaufendes Gitternetz 
gezeichnet werden, so sind die Zeilen 520 bzw. 560 durch 

520 MOVE i,j8: DRAW i,j9, 1 


560 MOVE i8,j: DRAW i9,j, 1 


zu ersetzen (Grafik 46). 














Natürlich können diese Kurvenscharen für a=2,4,6,8,10 leicht durch zusätzliche Linien op¬ 
tisch modifiziert werden. Die aktivierte Zeile 400 (s. REM-Zeilen am Programmende) 
zeichnet jeweils eine zusätzliche Linie von jedem Kurvenpunkt (i%,j%) zum Punkt 
(x=0,y=0). 

Mit den aktivierten Zeilen 400,410 ergibt sich die Grafik 47. Soll eine andere Parameter¬ 
funktion y=y(x,a) mit den Grenzen x8,x9 und der Schrittweite dx gezeichnet werden, so ist 
die Zeile 370 entsprechend zu ersetzen. Der zu variierende Parameter ist hierbei mit a zu be¬ 
zeichnen. Beispiele für solche Funktionen sind: 

370 y = EXP(-x/a) * C0S(x) 

370 y = a - x*x / a 

370 y=2*x*a* (RND(1)-0.5) 



Grafik 47: Parameterfunktion bei aktivierten Zeilen 400 und 410 


300 REM- Parameter-Funktion zeichnen - 

310 MODE 2:BORDER 2:INK 0,1:INK 1,26 

320 x8 = -4: x9 = 4: dx = 0.2 

325 y8 =-10: y9 = 10 

330 i8 = 0.5: i9 = 639.5 

335 j 8 = 0.5: j9 = 399.5 

340 mx = (i9 — i 8) / (x9-x8) 

345 my = (j9-j8) / (y9-y8) 

350 : 

355 FOR a=2 TO 10 STEP 2 
360 : FOR x=x8 TO x9 STEP dx 
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365 : 

370 : y = a * SIN(x) 

375 : 

380 : i% = i8 + mx * (x-x8) 

390 : i% = j8 + my * (y-y8) 

420 : IF x < > x 8 THEN MOVE il.jl: DRAW i%,j%, 1 

430 : il = i%: jl = j % 

440 : NEXT x 

450 NEXT a 
460 : 

470 MOVE i 8 i j 8 : DRAW i9-i8,j8, 1 
480 DRAW i9-i8,j9-j8, 1:DRAW i8,j9-j8, 1 
49 0 DRAW i8,j 8, 1 
500 : 

510 FOR i=i8 TO i9 STEP mx*dx 

520 MOVE iij 8-my*y8 + 4: DRAW i,j8-my*y8-4, 1 

530 NEXT i 

540 : 

550 FOR j = j8 TO j9 STEP Cj 9-j 8)/20 
560 MOVE i 8 , j : DRAW i 8-+-20 , j , 1 
570 NEXT j 
580 : 

590 a$=INKEY$: IF a$="" THEN 590 
600 END 
610 : 

620 REM** falls qewuenscht Programm-Zeilen -- 
630 REM** 400,410 wie folgt ergaenzen: 

635 REM— 400 MOVE i%,j%: 

DRAW i8-mx*x8,j8-my*y8, 1 

640 REM— 410 MOVE i%,j%: 

DRAW i8-mx*x8-j%/2,j8-my*y8-i%/4, 1 


10.3 Zeichnen von Ortskurven 

In der Elektrotechnik werden vielfach Zeiger in der komplexen Ebene zur Darstellung von 
sich zeitlich ändernden Strömen und Spannungen verwendet. Werden diese komplexen 
Funktionen in einen REAL-Teil x(t) und einen IMAGINÄR-Teil y(t) aufgespalten, so kön¬ 
nen die zugehörigen Ortskurven als Parameterdarstellung x(t),y(t) gezeichnet werden. Der 
Parameter t läuft von t8 bis t9 mit der Schrittweite dt (Zeile 610). Die min- bzw. max-x,y- 
Werte werden in den Zeilen 620,625 hinterlegt. Die Werte dx,dy (Zeilen 620,625) stellen 
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die Schrittweiten für das Gitternetz (Zeilen 755—785) dar. Die Parameterdarstellung 
x(t),y(t) der Ortskurve wird in den Zeilen 670,675 eingegeben. Durch die Zeilen 685,690 
werden die x,y-Werte in die Bildschirmkoordinaten i%,j% umgerechnet. Zwei aufeinander¬ 
folgende Punkte werden durch eine Linie (Zeile 700) verbunden. Jeder Punkt entspricht ei¬ 
nem bestimmten t-Wert und wird durch ein kleines Rechteck (Zeilen 705—715) markiert. 



Grafik 48: Ortskurve x(t),y(t) 


600 REM- Zeichnen von Ortskurven - 

605 MODE 2:BORDER 1:INK 0,2:INK 1,26 
610 t8 = 0: t9 = 60: dt = 0.3 
615 : 

620 x8 = -1: x9 = 1: dx = 0.2 

625 y8 = -1: y9 = 1: dy = 0.25 

630 : 

635 i8 = 0.5: i9 = 639.5 

640 j8 = 0.5: j9 = 399.5 

645 mx = (i9 —18) / (x9-x8) 

650 my = (j9-j8) / (y9-y8) 

655 : 

660 FOR t=t8 TO t9 STEP dt 
665 : 

670 : x = EX-P (-0.03*t) *COS (t) - t/200 

675 : y = EXP (-0.04*t) *SIN (t) + t/300 

680 : 
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685 : i% = i8 + mx * (x-x8) 

690 : j% = j8 + my * (y-y8) 

695 : 

700 : IF t<>t8 THEN MOVE 11,jl: DRAW 1 

705 : MOVE i%-4,j%+4: DRAW i%+4,j%+4, 1 
710 : DRAW i%+4,j%-4, 1: DRAW i%-4,j%-4, 1 
715 : DRAW i%-4,j%+4, 1 
720: il = i%: jl = j% 

725 NEXT t 
730 : 

735 MOVE 18,j 8: DRAW 19-i8,j8, 1 
740 DRAW i9-i8 » j 9-j 8, 1: DRAW i8 , j 9-j 8, 1 
745 DRAW 18, j 8, 1 
750 : 

755 FOR i=i8 TO i9 STEP mx*dx 
760 : MOVE i, j 8: DRAW i, j9, 1 
765 NEXT i 
770 : 

775 FOR j = j 8 TO j9 STEP my*dy 
780 : MOVE i8, j: DRAW i9, j, 1 
785 NEXT j 
790 : 

800 a$=INKEY$: IF a$="" THEN 800 
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11. Präsentationsgrafiken 


11.1 Balkendiagramme 

Balkendiagramme und Blockgrafiken werden bei vielen Anwendungen benutzt, z. B. 

— zur Darstellung der Wählerstimmen in bezug auf die Parteien 

— zur grafischen Darstellung des Notenspiegels von Klassenarbeiten 

— zur Darstellung des Umsatzes über der Abrechnungsperiode. 

Wir wollen ein universelles Programm entwickeln, das mit dem BASIC-Standard- 
Befehlssatz auskommt und keine zusätzlichen Grafik-Befehle benötigt. 

Im Beispiel wollen wir den monatlichen 
Umsatz (in Mill. DM) als Block auftragen. 

Der Wert des Umsatzes soll in die schwarz 
ausgefüllten Blöcke geschrieben werden (s. 

Abb. 14). Die Monatsnamen t$ und die da¬ 
zugehörigen Umsätze x$ werden in DATA- 
Zeilen (Zeilen 120—170) als Zeichenketten 
abgelegt. Die Überschrift für das Balken¬ 
diagramm ist vor dem ersten Monatsnamen 
in der Zeile 110 enthalten. Das Datenende 
markieren die Zeichen ee (Zeile 180). Vor 
dem Datenende ee können beliebig viele 
Datenpaare vorhanden sein. Das Balken¬ 
diagramm wird so dargestellt, daß die Län¬ 
ge eines Balkens dem Umsatz entspricht. 

In dem Programmstück von 215 bis 280 werden die Daten nach dem kleinsten (x8) und 
größten Umsatz (x9) durchsucht und die größte Zeichenzahl t8 aller t$ (bzw. t9 aller x$) er¬ 
mittelt. In der Zeile 300 wird t8 aufgrund der beiden Blanks (Leerzeichen) hinter dem Mo¬ 
natsnamen vergrößert und ebenso t9 wegen der Blanks vor den Umsatzzahlen. In der Varia¬ 
blen n (Zeile 230) wird die Anzahl der gelesenen Datenpaare hochgezählt, bis das Datenen¬ 
de ee erreicht ist. Der Maßstabsfaktor mx wird in der Zeile 310 ermittelt, indem die zur Ver¬ 
fügung stehende Länge (i9—19) durch die Umsatzspannweite (x9—x8) dividiert wird. In der 
Zeile 330 wird die Zeichenkette b$ mit ausreichend vielen Blanks gefüllt. Das erste Zeichen 
(CHR$(24)) in b$ (Zeile 320) ist das Zeichen für die invertierte Darstellung eines Balkens. 
Durch dieses Zeichen werden die PEN- und PAPER-Farben gegeneinander ausgetauscht, 
wodurch die Invertierung entsteht. In der Zeile 360 wird erneut die Überschrift gelesen und 
in Zeile 370 ausgegeben. In der Schleife von 390 bis 470 wird jeweils der Monatsname t$ 
und der Umsatz x$ gelesen. Mit dem Maßstab mx wird die aktuelle Balkenlänge ix berechnet 
(Zeile 410). Der Monatsname t$ wird rechts mit genügend vielen Blanks aufgefüllt (Zei¬ 
le 420). Dann werden von links her t8-Zeichen von t$ in u$ gespeichert (s. Abb. 14). Ist t9 



- 19 - 


— t9—| 


Umsatzzahlen xj 


jan 

1 242 1 



feb 

l~2Ä5 1 



mar 

1 32 V 


Abb. 14: Bezeichnungen für 

das Balkendiagramm 
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kleiner als ix, so wird in der Zeile 440 u$ rechts mit invertierten Blanks, dem Umsatz x$ und 
den restlichen Blanks ergänzt. In der Zeile 460 wird u$ ausgegeben. 

Das beschriebene Programm kann ohne Änderung für viele andere Anwendungen (z. B. Hi¬ 
stogramme in der Statistik) eingesetzt werden. Für die grafische Darstellung des Wahlaus¬ 
ganges wären die DATA-Zeilen 120 bis 170 neu einzugeben, indem jeweils der Parteiname 
gefolgt von der Stimmzahl abgelegt wird. 



Grafik 49: Histogramm 


100 REM- Balkendiagramm - 

110 DATA BALKEN-DIAGRAMM 


120 

DATA 

Jan, 

24.2, 

Feb, 

28.5 

130 

DATA 

Mar » 

29.0, 

Apr , 

25.1 

140 

DATA 

May, 

22.9, 

Jun, 

16.2 

150 

DATA 

Jul, 

12.7, 

Aug, 

8.5 

160 

DATA 

Sep, 

3.1, 

Oct, 

2.4 

170 

DATA 

Nov, 

2.9, 

Dez , 

6.3 


180 DATA ee,ee : REM Kennzeichnung 

fuer Datenende 

190 : 

200 i9=79: t8=0: t9=0 

205 x8= 0: x9=-3E+30: n=0: READ tS 

210 : 

215 READ t$ix$ 

220 WHILE t$<>"ee" 

230 : x=VAL(x$):lx=LEN(x$):lt=LEN(t$):n=n+l 
240 : IF lt>t8 THEN t8=lt 
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250 

: IF 

lx>t9 THEN 

rr 

10 

11 

1— 1 
>: 

260 

: IF 

x <x8 THEN 

x8 = x 

270 

: IF 

x >x9 THEN 

x9=x 

275 

280 

290 

: READ t$,x$ 

WEND 


300 

t8 = 

18 + 3: t9 

= t9 

310 

mx = 

(i9-t9) / (x9 

-x8) 

320 

b$ = 

CHR$ (24) 



330 FOR k=0 TO i9:b$= b$ + " n :NEXT 
340 : 

350 MODE 2:BORDER 2:INK 0,1:INK 1,24 
355 PAPER 0:PEN 1 
360 RESTORE: READ t$ 

370 PRINT : PRINT SPC (t8) ; t$: PRINT 
380 : 

390 FOR k=l TO n 
400 : READ t$, x$ 

410 : x=VAL(x$): lx=LEN(x$): ix=mx*(x-x8) 

420 : t$ = " " + t$ + RIGHTS (b$,i9) 

425 : u$ = LEFTS (t$,t8) 

430 : 

440 : IF t9< ix THEN u$ = u$ + LEFT$ (b$,t9-lx) 

+ x$ + RIGHTS (b$ , ix-t9) + CHR$ (24) 

450 : IF 19> = ix THEN u$ = u$+LEFT$(b$,ix) 

+ CHR$ (24) + " " + x$ 

460 : PRINT u$ 

470 NEXT k 


Wir wollen nun mit der hochauflösenden Grafik senkrechte 3D-Balkendiagramme zeich¬ 
nen. Zum Zeichnen der dreidimensionalen Balken benutzen wir die MOVE- und DRAW- 
Befehle. Zunächst wird die Vorderseite des Balkens, die einem Rechteck entspricht, ge¬ 
zeichnet (Zeile 840 bzw. 850). Danach werden durch die Zeilen 860 bis 900 noch einige Li¬ 
nien hinzugefügt, so daß ein dreidimensionaler Balken entsteht. In der Zeile 510 ist die 
Überschrift des Diagrammes hinterlegt. Die Zeilen 520 bis 570 enthalten jeweils das Kenn¬ 
zeichen (Monatsnamen) für den Balken und die Balkenhöhe (Umsatz). Die Endekennung 
(ee,ee) der Daten ist in der Zeile 580 hinterlegt. Indem wir die Monatsnamen durch Par- 
teien-Kennzeichen und den Umsatz durch die Sitzzahl ersetzen, können wir dieses Pro¬ 
gramm auch zur grafischen Darstellung von Wahlergebnissen verwenden. In der Schleife 
620 bis 690 wird die Anzahl n der eingegebenen Daten hochgezählt (Zeile 625) und der ma¬ 
ximale Umsatz (y9) ermittelt. Durch die Vorbesetzung y8=0 (Zeile 600,630) wird für posi¬ 
tive Umsatzzahlen der Wert y8=0 nicht verändert. Die Werte y8,y9 werden in der Zeile 720 
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Grafik 50: 3D-Balkendiagramm 


zur Berechnung des Maßstabsfaktors my verwendet. Die gezeichneten Balkenhöhen liegen 
zwischen den y-Grenzen j8=85.5 und j9=345.5 (Zeile 605). 

In der Zeile 740 wird der Datenzeiger durch RESTORE zurückgesetzt, die Diagrammüber¬ 
schrift gelesen und durch Zeile 760 in die Grafik geschrieben. Z. B. wird durch 

LOCATE x, y: PRINT A$ 

der in A$ gespeicherte Text ab der Spalte x und der Zeile y auf den Bildschirm geschrieben. 
Um den Text auf Grafik-Cursor-Positionen auszugeben und um das Diagramm zu beschrif¬ 
ten, muß zunächst das TAG-Kommando gegeben werden (Zeile 785). Danach wird durch 

MOVE x, y: PRINT A$ 

der Cursor an der Stelle mit den Bildschirmkoordinaten(l) (x,y) positioniert und durch den 
PRINT-Befehl der in A$ gespeicherte Text ab (x,y) auf den Bildschirm geschrieben (Zeilen 
920,930). Durch TAGOFF (Zeile 950) wird das TAG-Kommando aufgehoben. In der 
Schleife 790 bis 940 werden die n senkrechten Balken, wie in der Grafik 50 dargestellt, per¬ 
spektivisch gezeichnet. 


500 REM- Balkendiagramm - 

510 DATA BALKEN-DIAGRAMM 


520 

DATA 

Jan , 

24.2, 

Feb, 

28.5 

530 

DATA 

Mar , 

29.0 , 

Apr , 

25.1 

540 

DATA 

May, 

22.9, 

Jun , 

16.2 

550 

DATA 

Jul i 

12.7, 

Aug, 

8.5 

560 

DATA 

Sep, 

3.1, 

Oct, 

2.4 
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570 DATA Nov, 2.9, Dez, 6.3 
580 DATA ee,ee : REM Kennzeichnung 

fuer Datenende 

590 : 

600 y8 = 0 : y9 =-3E+30: n=0 

605 j 8 = 85.5: j9 = 345.5: READ t$ 

610 : 

615 READ x$, y$ 

620 WHILE x$< >"ee" 

625 : y = VAL(y$) : n = n + 1 
630 : IF y<y8 THEN yS=y 

640 : IF y>y9 THEN y9=y 

650 : READ x$, y$ 

690 WEND 
69 5 : 

700 dx = 639/(n+1) : dl = dx/5 
720 my = (j9-j8) / (y9-y8) 

7 3 0: 

740 RESTORE: READ t$ 

750 MODE 2:BORDER 1:INK 0,3:INK 1,26 
760 LOCATE 33, 2: PRINT t$ 

770 MOVE 0,0: DRAW 639,0,1: DRAW 639,399,1: 

DRAW 0,399,1: DRAW 0,0,1 
775 jl = j8 - my*y8 
780 : 

785 TAG 

790 FOR k = l TO n 
800 : READ x$, y$ 

810 : y = VAL (y$) : h = 30* (k MOD 2) 

820 : i% = (k-0.25)*dx: il = i% + 0.5*dx 
830 : j% = j 8 + mv* (V-V8) 

8 3 5 : 

840 : IF jl>=j% THEN MOVE i%,j%: DRAW i1,j%,1 
DRAW i1,j1,1:DRAW i%,j1,1: DRAW i%,j%,1 

845 : 

850 : IF jl< j% THEN MOVE i%,j1: DRAW i1, j1,1 
DRAW i1,j%,1:DRAW i%,j%,1: DRAW i%,j1,1 

855 : 

860 : MOVE i% , j% : DRAW i%+dl,j%+dl,1 

870 : DRAW il+dl,j%+dl,1: DRAW il , j% ,1 

890 : MOVE il + dl,j%+dl : DRAW il + dl,jl + dl , 1 

900 : DRAW il , jl ,1 
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905 : 

920 : MOVE i%,j8-h-5 : 
930 : MOVE i%,j8-h-25: 
940 NEXT k 
950 TAGOFF 
960 : 

970 a$=INKEY$: IF a$ = "" 


PRINT x$ ; 
PRINT y$; 


THEN 970 


11.2 Kreisdiagramme 

Zur Veranschaulichung von Verteilungsproblemen werden häufig Kreisdiagramme be¬ 
nutzt. Beispiele sind die Verteilung 

— der Parlamentssitze auf die Parteien 

— des Geschäftsumsatzes auf die Abrechnungsperioden 

— der Klassenarbeiten auf die Noten 

— bei Prognosedarstellungen 

— des Etats einer Kommune auf die Ressorts. 

Wir wollen ein universell anwendbares Programm zum Zeichnen eines Kreisdiagrammes 
entwickeln. Hierzu betrachten wir als Beispiel den monatlichen Umsatz (in 1000 DM) eines 
Unternehmens. Die Monatsbezeichnung und der dazugehörige Umsatz werden in den DA¬ 
TA-Zeilen 110 bis 140 agelegt. Als Endekennung für die Daten wird ee (Zeile 150) verwen¬ 
det. Der Kreisradius in x- bzw. y-Richtung ist mit a bzw. b bezeichnet (Zeile 170). Der Kreis¬ 
mittelpunkt hat die Koordinaten x0,y0. In der Schleife 220,230 wird der Gesamtumsatz in 
der Variablen sx aufsummiert. Das Hochzählen der Abrechnungsperioden (hier die Anzahl 
der Monate) erfolgt in der Variablen n. Wird das Endekriterium gelesen, so verzweigt das 
Programm zur Zeile 250. In unserem Falle ist dann n=12. Nach RESTORE (Zeile 260) 
wird die Überschrift erneut gelesen und in der Zeile 270 ausgegeben. Durch die Zeilen 280 
bis 350 wird ein Kreis um den Mittelpunkt (x0,y0) gezeichnet. Die Änderung des a/b-Ver¬ 
hältnisses (Zeile 170) gestattet auch eine Kreisdarstellung auf dem Drucker. Der gelesene 
monatliche Umsatz x$ wird durch den Gesamtumsatz sx in der nachfolgenden Schleife (Zei¬ 
len 380 bis 490) dividiert. Dieser Wert wird mit pp=2*u multipliziert und ergibt den Zentri¬ 
winkel w des Kreissektors im Bogenmaß (Zeile 390). Der bisher überstrichene Zentriwin¬ 
kel w des Kreissektors wird in der Variablen sw aufsummiert (Zeile 400). 

Die Zeilen 420 und 430 berechnen den aktuellen Kreispunkt (x2,y2), die Zeile 440 veran¬ 
laßt das Zeichnen eines Radius vom Kreismittelpunkt (x0,y0) zum Kreispunkt(x2,y2). Die¬ 
ser Radius bildet den entsprechenden Kreissektor (s. Grafik 51). Um die Grafik zu beschrif¬ 
ten, wird in Zeile 370 mit Hilfe des TAG-Befehls die Ausgabe von Text auf Grafikcursorpo¬ 
sitionen ermöglicht. Danach kann Text mit dem PRINT-Befehl an jeder beliebigen Position 
des Bildschirmes ausgegeben werden. Durch TAGOFF (Zeile 500) wird das TAG-Kom- 
mando aufgehoben. Zur Beschriftung der Grafik wird der halbe Winkel w/2 verwendet 
(Zeilen 420,430). Da die Beschriftung bei der aktuellen Cursor-Position beginnend nach 
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rechts hin ausgegeben wird, muß die Textausgabe abhängig von der Textlänge nach links 
versetzt werden. Hierzu dienen die Zeilen 450,460,470 und 480. Die Linksverschiebung 
des Textanfangs hängt von den Textlängen lp,lx bzw. lt ab. Die Berechnung der prozentualen 
Verteilung p$ des Umsatzes (x bzw. w) geschieht in der Zeile 410. Hierbei wird eine Run¬ 
dung auf eine Kommastelle durchgeführt. 

Dieses Programm zum Zeichnen eines Kreisdiagrammes kann für viele Anwendungen ohne 
Änderung verwendet werden. Lediglich die Zeilen 110 bis 140 sind durch andere DATA- 
Zeilen zu ersetzen. Die Anzahl der Kreissektoren ist variabel und wird durch das Lesen bis 
zum Endekriterium automatisch ermittelt. Die Überschrift für das Kreisdiagramm ist in der 
DATA-Zeile 100 zu hinterlegen. 


100 

DATA 

KREIS-DIAGRAMM 




110 

DATA 

JAN, 24.2, FEB, 

28.5, 

MAR, 

29.0 

120 

DATA 

APR, 25.1, MAY, 

22.9, 

JUN, 

16.2 

130 

DATA 

JUL, 12.7, AUG, 

8.5, 

SEP, 

3.1 

140 

150 

160 

DATA 

DATA 

OCT, 2.4, NOV, 2.9, 
ee,ee : REM Datenende 

DEZ , 

6.3 

170 

b = : 

160: a = l.l*b: 

xO = 320: yO 

= 200 

180 

190 

195 

x9 = 
READ 

-3E+30: pp = 2* 
t$ 

PI : sx 

= 0: 

n = 0 
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200 READ t$ix$ 

210 WHILE t$< >"ee" 

220 : sx = sx + VAL (x$) : n = n +1 
230 : READ t$,x$ 

240 WEND 
245 : 

250 MODE 2:BORDER 2:INK 0,3:INK 1,26 
255 : 

260 RESTORE: READ t$: sw = 0 
270 LOCATE 5,3: PRINT t$ 

275 : 

280 ORIGIN xO,yO 
290 DEG 

300 POR t=0 TO 360 STEP 5 

310 : x2 = a *COS (t) : y2 = b*SIN(t) 

320 : IF t>0 THEN MOVE xl,yl: DRAW x2,y2,l 

330 : xl = x2: yl = y2 

340 NEXT t 

350 RAD 

355 : 

360 ORIGIN 0,0 
370 TAG 

380 FOR k=l TO n: READ t$,x$ 

390 : w = pp/sx*VAL (x$) 

400 : sw = sw + w 

410 : p$ = MID$ (STR$ (INT(1000 *w/pp+0.5)/10) 

+ " ",2,4)+"%" 

420 : x2 = xO + a*COS(sw): x3 = a*COS(sw-w/2) 
430 : y2 = yO + b*SIN(sw): y3 = b*SIN (sw-w/2) 
440 : MOVE x0,y0: DRAW x2,y2,l 

450 : lt = LEN(t$) : lp = LEN (p$) : lx = LEN (x$) 
460 : MOVE x0+l.2*x3-4*lp, y0+1.2*v3+6: 

PRINT p$; 

470 : MOVE x0+0.8*x3-4*lx, v0+0.8*y3+6: 

PRINT x$; 

480 : IF w>0.2 THEN 

MOVE x0+0.5*x3-3*lt, y0+0.5*y3+6: 

PRINT t$; 

490 NEXT k 
500 TAGOFF 
510 : 

520 a$=INKEY$: IF aS = "" THEN 520 
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12. Zufallsgrafiken 


Zufallseinflüsse für Computergrafiken können in BASIC mit Hilfe der RND(l)-Funktion 
realisiert werden. Diese Funktion erzeugt einen zwischen 0 und 1 liegenden Zufallswert. In 
den Kapiteln 2.1,2.2,2.8 haben wir bereits solche Zufallsgrafiken erzeugt. Hier soll nun eine 
zufällige Folge von n-Punkten Pl(ul,vl),P2(u2,v2),.. .,Pn(un,vn) aufgebaut werden. 
Durch Verbinden der Punkte können vielfältige Grafiken erzeugt werden. Jeder Programm¬ 
ablauf liefert neue Bilder, so daß der Beobachter entscheiden kann, ob das generierte Bild 
seinen ästhetischen Ansprüchen genügt. 

Die in den Programmzeilen 240 und 250 erzeugten Zufallskoordinaten u(k),v(k) liegen 
zwischen den Werten 

60 < u(k) < 580 
40 < v(k) < 360. 

Die Zeile 260 bewirkt das Entfernen von Punkten aus der Bildmitte. Die Anfangs- und 
Endpunkte der Zufallsfolge werden in Zeile 290 und 300 so verknüpft, daß später geschlos¬ 
sene Linienzüge entstehen. 

In den Zeilen 640,650 wird entsprechend dem t-Parameter ein „Mittelwert“ von 3 aufeinan¬ 
derfolgenden Zufallspunkten gebildet. Diese neuen Punkte werden durch Geraden verbun¬ 
den. Somit ergibt sich ein „gemitteltes“ Zufalls-n-Eck (Zeilen 630 bis 710). Dabei ergeben 
sich durch den Mittelungsparameter tl in Zeile 340 Zufallsgrafiken wie z. B. Grafik 52. 



Grafik 52: „Zufallsgrafik"mit vorgegebenen Punkten 
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Verwenden wir statt der Zeilen 240 bis 260 lediglich 
260 READ u(k), v(k) 
und ersetzen außerdem 220 durch 
220 READ n 

so ergibt sich mit den 7 festen Punkten gemäß den folgenden DATA-Zeilen 

190 DATA 7,240,180,280,20,20,360,320 
195 DATA 180,610,360,360,20,400,180 

die Grafik 52. Durch die Eingabe der festen Punkte ist die Programmausgabe eindeutig und 
somit für den Leser überprüfbar. 

200 REM- Zufallsgrafiken mit Geraden - 

210 DIM u (40) , v (40) 

220 n = 12 

230 FOR k=l TO n 

240 : u (k) = 60 + 520*RND(1) 

250 : v (k) = 40 + 320*RND(1) 

260 : IF ABS (v (k)-200) <80 OR 

ABS(u (k)-320)<120 THEN 240 
270 NEXT k 
280 : 

290 u (0) =u (n) : u (n+1) =u (1) : u (n+2) =u (2) 

300 v (0) =v (n) : v (n+1) =v (1) : v (n + 2) =v (2) 

310 : 

320 MODE 2:BORDER 4:INK 0,3:INK 1,26 
330 : 

340 FOR tl=0 TO 0.9 STEP 0.05 
350 : 

630 : FOR k=l TO n+1 

640 : x2 = u (k) + tl* ((u (k-1)+u (k + 1) )/2-u (k)) 

650 : y2 = v (k) + 11 * ((v (k-1) +v (k + 1) ) /2-v (k)) 

660': IF k>l THEN MOVE xl, yl: DRAU x2, y2, 1 

670 : MOVE x2-(10-2*tl) ,y2 

675 : DRAW x2,y2+ (10-2*tl) , 1 

680 : DRAW x2+(10-2*11) ,y2, 1 

685 : DRAW x2,y2- (10-2*tl) , 1 

690 : DRAW x2-(10-2*tl) ,y2, 1 

700 : xl = x2 : yl = y2 

710 : NEXT k 

720 NEXT tl 

730 : 

740 a$=INKEY$: IF a$ = "" THEN 740 
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Bei dem obigen Programm wurden die Zufallspunkte durch Geraden verbunden. Jeder 
Eckpunkt wird durch ein kleines Viereck (Zeilen 670 bis 690) markiert. Sollen die Zufalls¬ 
punkte durch glatte Kurven (stetige 1. und 2. Ableitung) verbunden werden, so kann z. B. 
das im Kapitell4.3 beschriebene Verfahren angewendet werden (Zeilen 1485 bis 1580). 

In den Zeilen 1630—1700 werden die Koordinaten von 3 aufeinanderfolgenden Punkten 
entsprechend dem tl-Wert gemittelt und ergeben dadurch neue Punkte. Indem wir die 
Schrittweite in der Zeile 1470 ändern, erhalten wir einen anderen Linienabstand. Verwen¬ 
den wir auch hier die 7 festen Punkte des vorhergehenden Programmes, so liefert das Pro¬ 
gramm die Grafik 53. 



Grafik 53: Zufallsgrafik mit interpolierenden Linienzügen bei vorgegebenen Punkten 


1200 REM- Zufallsgrafikan mit stetigen Kurven - 
1210 DIM u (40) , v (40) , x(40) , y (40) 

1220 n=12 

1230 FOR k=l TO n 

1240 : u(k) = 60 + 520*RND(1): x (k) = u (k) 

1250 : v (k) = 40 + 320*RND(1): y (k) = v (k) 

1260 : IF ABS (v (k)-200) <80 OR 

ABS (u (k)-320) <120 THEN 1240 
1270 NEXT k 
1280 : 

1290 u (0) = u (n) : u (n+1) = u(l): u (n+2) = u (2) 
1300 v (0) = v (n) : v (n+1) = v (1) : v (n+2) = v(2) 
1310 : 

1320 MODE 2:BORDER 2:INK 0,1:INK 1,26 
1330 MOVE 0,0: DRAW 0,399,1: DRAW 639,399,1 
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1335 DRAW 639,0,1: DRAM 0,0,1 
1337 : 

1340 FOR tl=0.05 TO 0.9 STEP 0.05 
1350 : 

1400 : REM- Verbinden der Zufallspunkte - 

1410 : REM- durch stetigen Linienzug - 

1430 : x (0) = x (n) : x (n+1) = x (1) : x (n + 2) = x (2) 

1440 : y (0) = y (n) : y (n+1) = y (1) : y(n + 2) = y (2) 

1450 : 

1460 : FOR k=0 TO n-1 

1470 : FOR t=0 TO 1.01 STEP 0.1 

1485 : xa = (x (k) + x(k+2))/2 - x (k + 1) 

1490 : ya = (y (k) + y(k + 2))/2 - y (k+1) 

1495 : xb = (x (k+1) + x(k + 3))/2 - x (k+2) 

1500 : yb = (y (k + 1) + y(k+3))/2 - y (k + 2) 

1510 : xa = x (k) + (t+1) * (x (k+1) -x (k) +xa*t) 

1520 : ya = y (k) + (t + 1) * (y (k+1)-y (k)+ya*t) 

1530 : xb = x (k+1) + t * (x (k + 2) - x (k + 1) 

+ xb* (t-1)) 

1540 : yb = y(k + l) + t * (y (k + 2) - y (k+1) 

+ yb* (t-1) ) 

1545 : tO = t*t*(3-2*t): REM oder t0=t 

1550 : x2 = xa + (xb-xa)*t0 

1560 : y2 = ya + (yb-ya)*t0 

1570 : IF t>0 THEN MOVE xl,yl: DRAW x2,y2, 1 

1580 : xl = x2: yl = y2 

1590 : NEXT t 
1600 : NEXT k 
1620 : 

1630 : FOR k=l TO n 

1640 : x (k) = u (k) + tl*((u(k-l) 

+ u (k+1) ) /2 - u (k) ) 

1650 : y (k) = v (k) + tl*((v(k-l) 

+ v (k + 1) ) /2 - v (k) ) 

1700 : NEXT k 
1710 NEXT tl 
1720 : 

1730 a$=INKEY$ : IF a$ = "" THEN 1730 
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13. Ebener Polygonzug 


Bei vielen naturwissenschaftlichen Anwendungen ist eine gewisse Anzahl von Punkten in 
der x,y-Ebene vorgegeben. Z. B. liefert die Durchführung von Experimenten aufeinander¬ 
folgende Punkte in einem x,y-System, oder die Eckpunkte eines Grundstückes sind durch 
x,y-Koordinaten festgelegt. Im einfachsten Fall sollen diese Punkte durch Geraden verbun¬ 
den werden (Grafik 54). 

Die Punkte PI,P2,P3,.. .,P8 haben die Koordinaten xl,yl,x2,y2,.. .,x8,y8. Diese Koordina¬ 
ten sind als DATA-Werte (Zeile 40,50) abgelegt. Der erste DATA-Wert (hier 8) gibt an, daß 
es sich um 8 Punkte handelt. Diese Zahl 8 wird in den n-Speicher (Zeile 120) gelesen und 
die Koordinaten der Punkte in die x(k), y(k)-Feldelemente (Zeile 140). Mit den kleinsten 
(x8) und größten (x9) x-Achsenwerten, sowie den kleinsten (y8) und größten (y9) y-Werten 
(Zeile 200) werden die Maßstäbe mx,my berechnet (Zeile 300). Die Umrechnung der Ko¬ 
ordinaten x(k),y(k) des k-ten Punktes in den Bildschirmpunkt (i2,j2) (Zeile 350,360) er¬ 
folgt in der k-Schleife (Zeilen 340—410). Um jeden Punkt wird ein Markierungsquadrat ge¬ 
zeichnet (Zeile 380,390), und mit Hilfe der DRAW-Anweisung (Zeile 370) werden Linien 
vom 1. zum 2. Punkt, vom 2. zum 3. Punkt usw. gezeichnet. Durch die Punkte PI,P2,.. .,P8 
erhalten wir einen Polygonzug. Durch die Zeilen 430,440,450 werden die angegebenen 
Texte in die Grafik geschrieben (s. Grafik 54). 

10 REM- Polygonzug durch pl,p2,p3,...,pn - 

15 : 

20 REM n, xl,yl, x2,y2., xn,yn 

40 DATA 8, -3,-3, -3,0, 0,0, 0,3 
50 DATA 3,3, 3,0, 5,-3, 0,-3 
90 : 

100 : 

110 DIM x (100) , y (100) 

115 : 

120 READ n 

130 FOR k=l TO n 

140 : READ x (k) ,y (k) 

150 NEXT k 

170 : 

200 x8 = -7 : x9 = 7: y8 = -4: y9 = 3 

210 iS = 0,5: i9 =639,5: j8 = 0.5: j9 =319.5 

220 : 

300 mx = (i 9-i 8) / (x9-x8) : my = (j 9-j 8) / (y9-y8) 

310 : 

320 MODE 1:BORDER 10:INK 0,1:INK 1,26 
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330 : 

340 FOR k=l TO n 

350 : i2 = iß + mx * (x (k) - xß) 

360 : j2 = jß + my * (y (k) - yß) 

370 : IF k>l THEN MOVE il.jl: DRAW i 2, j 2 , 1 

380 : MOVE i2-8,j 2: DRAW i2,j2 + 8, 1 

390 : DRAW i2+8,j2, 1: DRAW i2,j2-8, 1 

395 : DRAW i2-8,j2, 1 

400 : il = i2: jl = j2 

410 NEXT k 

420 : 

430 LOCATE 3,3: PRINT "POLYGONZUG" 

440 LOCATE 2,6: PRINT "durch die Punkte" 

450 LOCATE 2,8: PRINT "pl, p2, p3,..,pß" 

490 : 

500 a$=INKEY$: IF a$="" THEN 500 



Grafik 54: Ebener Polygonzug 


Entnehmen wir einem Atlas koordinatenmäßig die Punkte der Bundesrepublik und legen 
diese in DATA-Zeilen ab, so wird nach dem Programmstart die Grafik 55 gezeichnet. 


Damit kein Abzählen der Anzahl von Punkten erforderlich ist, werden die Daten (s. Zei¬ 
le 110) mit dem Endekennzeichen 9E+09 abgeschlossen. Wird das Datenende gelesen 
(Zeile 140), so wird infolge der Zeile 150 die Lese-Schleife verlassen. Die Variable n ent¬ 
hält dann die Anzahl der gelesenen Punkte. 


Um eine geschlossene Figur zu erhalten, wird vor dem 1. Eckpunkt der n. Eckpunkt abge¬ 
legt (Zeile 180). Dadurch wird eine Linie vom letzten zum ersten Eckpunkt gezeichnet und 
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der Polygonzug geschlossen (Zeile 380). Durch die Zeilen 430,440,450 wird die Grafik 
55beschriftet. 

10 REM- geschlossener Polygonzug fuer die BRD - 
15 : 


20 

REM 

xl , 

yi - 

x 2 , y2 , 


. xn , yn 

25 

DATA 

4.0, 

1.0, 

6.0, 1.0, 

6.5, 

1.3, 8.6, 0.8 

30 

DATA 

9.5, 

0.9, 

11.0, 1.0,12.3, 

0.5,15.0, 1.8 

35 

DATA 

16.8, 

0.8, 

16.2, 3.2, 

17.8, 

4.1,18.4, 5.1 

40 

DATA 

18.0, 

6.0, 

15.0, 9.0, 

15.5, 

9.5,14.0,11.5 

45 

DATA 

11.0, 

10.8, 

9.5,11.5, 

9.2, 

13.8,10.8,16.0 

50 

DATA 

10.5, 

17.0,11.5,18.0, 

11.0, 

20.2,13.0,21.0 

55 

DATA 

10.5, 

22.4, 

10.8,24.8, 

11.5, 

25.3, 9.8,26.0 

60 

DATA 

9.0, 

27.5, 

6.2,28.0, 

6.0, 

26.0, 7.0,26.2 

65 

DATA 

6.9, 

24.8, 

5.0,22.5, 

4.7, 

23.8, 2.5,22.9 

70 

DATA 

3.0, 

21.8, 

2.9,20.0, 

2.0, 

19.0, 2.2,17.1 

75 

DATA 

0.2, 

16.8, 

0.9,15.1, 

0.0, 

12.8, 1.0,11.4 

80 

DATA 

0.3, 

10.1, 

1.2, 9.0, 

1.4, 

7.5, 5.0, 6.0 

85 

DATA 

3.5, 

3.0, 

3.1,1.2 
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REM 

Ende 

: - Kennung 




110 DATA 9E + 09, 9E+09 
115 : 

120 DIM x(100) , y (100) 

125 : 

130 FOR k=l TO 1000 
140 : READ x (k) iy(k) 

150 IF x (k) =9E+09 AND y (k) =9E+09 
THEN n=k~l: k=9999 
160 NEXT k 
170 : 

180 x (0) = x (n) : y (0) = y (n) : REM geschlossen 

210 : 

220 x8 =-0.2: x9 = 20 : V 8 = 0 : y9 = 30 
230 i8 = 0.5: i9 =639.5: j8 = 0.5: j9 =399.5 
290 : 

300 mx = (i9 — i8) / (x9-x8) : my = (j9-j8) / (y9-y8) 
310 : 

320 MODE 1:BORDER 1:INK 0,2:INK 1,26 
330 : 

340 FOR k=0 TO n 

350 : i2 = i8 + mx * (x (k) - x8) 
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360 

380 


j 2 = j 8 + my * (y(k) - y8) 

IF k >0 THEN MOVE il.jl: DRAW 


390 

: MOVE i2-8. 

j 2 : 

DRAW i 2 , j 2 + 8, 1 

395 

: DRAW i2+8, 

j 2 , 

1 : 

DRAW i2,j 2-8, 

400 

: DRAW i2-8, 

j 2 , 

1 


410 

: i 1 = 12: jl = 

j 2 


420 

NEXT k 




425 

: 




430 

LOCATE 31, 4: 

PRINT 

"BRD MIT" 

440 

LOCATE 33, 7: 

PRINT 

STR$ (n) 

450 

LOCATE 30,10: 

PRINT 

"ECKPUNKTEN" 

460 

: 




500 

a$=INKEY$: IF 

a$ 

_ ff ft 

THEN 500 


"t 

-- .... 

_ _ 








i 2 , j 2 . 1 
1 




BRD HIT 


ECKPUNK TEN 






Grafik 55: BRD als geschlossener Polygonzug 


In vielen Fällen benötigt man auch den Wert der Fläche eines geschlossenen Polygonzuges. 
In dem Buch „Bachmann, Haake: Matrizenrechnung für Ingenieure, Springer-Verlag“ ist 
das Verfahren erklärt. Hier soll lediglich das Programm angegeben werden. Zur Berechnung 
der n-Eck-Fläche ist die Anzahl n der Eckpunkte (Zeile 45) einzugeben. In der Zeile 50 
sind die Koordinaten der Eckpunkte abgelegt. Hierbei ist darauf zu achten, daß die Reihen¬ 
folge der Eckpunkte so gewählt wird, daß die gesuchte Fläche immer links vom Umlaufweg 
liegt. Wenn wir dies beachten, so können auch Hohlräume umlaufen werden. Die 6 Eck¬ 
punkte des folgenden Programmes ergeben einen Flächenwert von 18. 
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10 REM- Flaechenberechnung eines ge- - 

20 REM- schlossenen Polygonzuges - 

30 REM- Umlaufrichtung beachten !! - 

35 : 

40 REM Anzahl n der Punkte 
45 DATA 6 

50 DATA -1,-1, 5,-1, 5,3, 2,3, 2,1, -1,1 

90 : 

115 : 

120 READ n 

130 DIM x (n) , y (n) 

135 : 

140 FOR k=l TO n 
150 : READ x (k) ,y (k) 

160 HEXT k 
210 : 

220 x (0) = x (n) : y (0) = y (n) 

230 : 

240 FOR k=l TO n 

250 : a = a + x(k-l)*y(k) - x (k) *y (k-1) 

260 NEXT k 
270 : 

280 a = a/2 

290 PRINT " Flaeche = ";a 
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L4. Approximationen 


Bei vielen Anwendungen sind Punkte in der x,y-Ebene vorgegeben, und ein Kurvenzug wird 
gesucht, der diese Punkte beschreibt. Liegen sehr viele Meßpunkte vor, so ist oft ein „mittle¬ 
rer“ Kurvenzug gesucht, der zwar nicht durch jeden Meßpunkt geht, aber die „Punktewol¬ 
ke“ im Sinne der kleinsten Fehlerquadrate beschreibt. Wir sprechen dann von einer Regres¬ 
sionskurve. 

Dagegen führt ein interpolierender Kurvenzug durch jeden vorgegebenen Punkt. Dieser in¬ 
terpolierende Kurvenzug approximiert die unbekannte Funktion, von der lediglich die 
Stützstellen bekannt sind. 


14.1 Interpolation nach Lagrange 

In der Ebene seien die drei Punkte PO(xO,yO),Pl(xl,y 1) und P2(x2,y2) gegeben (s. 
Abb. 15). Diese 3 Punkte sollen durch einen parabolischen Linienzug verbunden werden. 
Mit Hilfe der LAGRANGESCHEN Interpolationsformel erhalten wir die Gleichung 

x(t) = x0*(t-1)*t/2 + x1*(1-t)*(1+t) + x2*(t + 1)*t/2 
y(t) - y0*(t-1)*t/2 + y1*(1-t)*(1+t) + y2*(t+1)*t/2 

in Parameterdarstellung. Setzen wirz. B. t=—1 ein, so ergibt sich x(—l)=xO,y(—l)=y(). Für 
t=0 ergibt sich x(0)=xl,y(0)=y 1 und für t=l ergibt sich nach dem Einsetzen in die obigen 
Formeln x(l)=x2,y(l)=y2. Wenn t von —1 bis +1 läuft, so ergeben sich Zwischenpunkte 
(x(t),y(t)), die auf einem parabolischen Linienzug durch die vorgegebenen Punkte 
P0,P1,P2 liegen (Abb. 15). Diese Parameterdarstellung hat gegenüber der gewöhnlichen 
kartesischen Parabeldarstellung y=a+b*x+c*x*x den Vorteil, daß z. B. auch „U“ oder „C“- 
förmige Linienzüge eindeutig dargestellt werden können. Das folgende Programm liefert 
(abgesehen von der Form) die Wertetabelle: 


D 

-1.0 

-.8 

-.6 

Bl 

-.2 

0.0 

0.2 

0.4 

0.6 

0.8 

1.0 

D 

2.0 

D 


8.0 

9.2 

10.0 

10.4 

10.4 

10.0 

9.2 

8.0 

D 

-2.0 

-.48 

0.88 

2.08 

3.12 

4.0 

4.72 

5.28 

5.68 

5.92 

6.0 


100 

105 

REM- Wertetabelle 

REM xO■yO, xl,yl, 

x2 , 

y2 

110 

DATA 2,-2, 

10, 4, 

8, 

6 

120 

130 

READ x0,y0, 

xl,yl, 

x2 , 

y2 

135 

140 

FOR t=-l TO 

1 STEP 0 

. 2 
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150 : 


x = xO* (t-1) *t/2 + xl* (1-t) * (1+t) 
+ x2* (t + 1) * t/2 
160 : y = yO* (t-1)*t/2 + yl* (1-t)* (1 + t) 
+ y2* (t + 1) *t/2 
170 : PRINT t, x, y 
180 NEXT t 

In einem x,y-System aufgetragen, erhalten wir die folgende Abbildung: 


Abb. 15 Parabolische Interpolation durch die 
gegebenen Punkte P0,P1,P2 



14.2 Fortlaufende parabolische Interpolation 

Bei technischen Anwendungen tritt häufig das Problem auf, daß die in der x,y-Ebene liegen¬ 
den Punkte P1,P2,P2,.. .,Pn fortlaufend durch einen Kurvenzug zu verbinden sind. Der 
Kurvenzug soll glatt und ohne spitze Ecken durch die vorgegebenen Punkte gehen. Ein in¬ 
terpolierendes Polynom (n—l)-ten Grades weist in vielen Fällen eine große Welligkeit auf. 
Deshalb wird die folgende Methode bevorzugt. 

Zunächst betrachten wir die Abb. 16. Die Koordinaten x0,y0,xl,yl,x2,y2,x3,y3 der Punkte 
P0,P1,P2 und P3 seien bekannt. Die Parabel durch P0,P1,P2 kann durch 

xa = x0*(t-1)*t/2 + x1*(1-t)*(1+t) + x2*(t+1)*t/2 
ya = y0*(t-1)*t/2 + y1*(1-t)*(1+t) + y2*(t+1)*t/2 

dargestellt werden (s. 8. u. 14.1). 

Für t=— 1,—0.8,—0.6.+0.8,+ 1 ergeben sich Punkte Pa(xa,ya), die auf der durchgezoge¬ 

nen Linie von PO nach PI nach P2 liegen. Diese Parabel nennen wir die a-Parabel. 

In gleicher Weise können wir eine Parabel durch P1,P2,P3 konstruieren. In der Abb. 16 ist 
diese Parabel strichpunktiert. Diese strichpunktierte Parabel nennen wir die b-Parabel, die 
durch 

xb = x1*(t-1)*(t-2)/2 + x2*(2-t)*t + x3*(t-1)*t/2 
yb = y1*(t-1)*(t-2)/2 + y2*(2-t)*t + y3*(t-1)*t/2 

gegeben ist. 
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Für t=0 ist xb=xl,yb=yl. Für t=l ist 
xb=x2,yb=y2. Für t=2 ist xb=x3,yb=y3. 

Diese Parabel geht offensichtlich durch die 
Punkte P1,P1,P3. Die Abb. 16 macht deut¬ 
lich, daß die a- und b-Parabelstücke i. allg. 
verschieden sind. 

Wir wollen im folgenden lediglich den Kur¬ 
venverlauf von PI nach P2 betrachten. Der 
Parameter t läuft hier von 0 bis 1. Für diesen 
Bereich 0 <=t <=1 wählen wir eine gemit¬ 
telte Kurve, die in der Abb. 16 gestrichelt 
gezeichnet ist. Für „kleine“ t-Werte (z. B. 

0<=t<=0.1) soll diese gestrichelte Kurve 
mehr der a-Parabel entsprechen. Für „gro¬ 
ße“ t-Werte (z. B. 0.9<=t<=l) soll diese 
gesuchte Kurve mehr der b-Parabel ent¬ 
sprechen. Wenn xa,xb und ya,yb für einen 
Punkt zwischen PI und P2 berechnet sind, 
so können wir den zugehörigen Punkt 
P(x,y) auf der gestrichelten Kurve durch 

x = xa + (xb-xa) * t 

y = ya + (yb-ya) * t 

erhalten. Für um 0 liegende t- Werte liegt ein Kurvenpunkt (x,y) nahe bei (xa,ya), und für 
t-Werte bei 1 liegt (x,y) nahe bei (xb,yb). Lediglich diese gemittelten Kurvenstücke (gestri¬ 
chelte Kurve der Abb. 16) werden wir verwenden. Sind mehr Punkte vorhanden, so wird das 
obige Verfahren zunächst für P0,P1,P2,P3, dann weitergeschoben für P1,P2,P3,P4 usw. 
wiederholt. In dem folgenden Programm zur parabolischen Interpolation werden glatte 
Kurven durch die in DATA-Zeilen (1050,1060,1070,1110) abgelegten Punkte gezeichnet. 
Die Anzahl der vorgegebenen Punkte wird in n gespeichert. 

Die Koordinaten der vorgegebenen Punkte werden in das x(),y()-Feld (Zeile 1200) gelesen. 
In den Zeilen 1220 bis 1250 wird ein Vorgängerpunkt PO und ein nachfolgender (n-Fl)-ter 
Punkt gewählt. Die Zeilen 1350 bis 1410 markieren lediglich die gegebenen Punkte durch 
kleine Vierecke und können auch weggelassen werden. Die Zeilen 1450 bis 1640 folgen den 
oben angegebenen Betrachtungen. Für jeden t-Wert wird xa,ya (Zeilen 1500,1510) und 
xb,yb (Zeilen 1530,1540) berechnet. Mit xa,ya,xb,yb wird der Kurvenpunkt (x,y) berechnet 
(Zeilen 1560,1570). Durch die Zeilen 1590,1600 wird x,y auf die Bildschirmkoordinaten 
i2,j2 (0.. .639,0.. .399) transformiert. Die Maßstäbe mx,my wurden in der Zeile 1300 be¬ 
rechnet. In der Zeile 1620 wird eine Linie vom Punkt (x,y) mit dem „alten“ t-Wert zum 
„neu“ berechneten Kurvenpunkt gezeichnet. Ist die t-Schleife (Zeile 1450) abgearbeitet, so 
wird die Punktnummer k erhöht. Bei k=0 werden die Punkte P0,P 1,P2 für die a-Parabel und 
P1,P2,P3 für die b-Parabel verwendet. Bei k=l werden die Punkte P1,P2,P3 und P2,P3,P4 
verwendet usw. Wenn wir die Zeilen 1560,1570 durch 

1560 x = xa + (xb - xa) * t*t * (3-2*t) 

1570 y = ya + (yb - ya) * t*t * (3-2*t) 97 



Abb. 16: Interpolierende Kurve (gestrichelt) 



ersetzen, so ist neben der 1. Ableitung auch die 2. Ableitung des gesamten Kurvenzuges ste¬ 
tig- 

Mit dem gleichen Programm können auch geschlossene Kurven gezeichnet werden. In die¬ 
sem Fall sind der erste und der n-te Punkt gleich. Außerdem ist der (n+l)-te Punkt gleich 
dem 1-ten Punkt (siehe Zeilen 1270,1280). Wenn wir die Zeilen 1270,1280,1281 aktivieren, 
so wird eine geschlossene Kurve durch die Punkte P1,P2,.. .,Pn gezeichnet. Entnehmen wir 
einem Atlas die Grenzpunkte der Bundesrepublik und legen diese in DATA-Zeilen ab, so 
ergibt sich die Grafik 57 (s. a. 13). 

1020 REM- parabolische Interpolation - 

1030 : 

1040 REM n. xl. yl, x2, y2 , . , xn, yn 

1050 DATA 14, -6, -2, -5, -3, -4, 3, -1,-2.5 

1060 DATA 0,-2.5,0.5, 3, 0,2.5,2.5, 3 

1070 DATA 4, 2, 3.5, 0 , 1, -1, 1, 0 

1110 DATA 4,-3, 5,-2 

1120 : 

1130 DIM x (20) , y (20) 

1140 x8 = -8: x9 = 8: y8 = -5: y9 = 5 

1150 i8 = 0.5: i9=639.5: j8 = 0.5: j9 =399.5 

1160 : 

1170 : READ n 

1190 : FOR k=l TO n 

1200 : READ x (k) , y (k) 

1210 : NEXT k 

1215 : 

1220 x (0) = x (1) -x (2) +x (3)/3 
1230 x (n+1) = x (n)-x (n-1)-fx (n-2)/3 
1240 y (0) = y(l)-y(2)+y(3)/3 
1250 y(n+l) = y (n) -y (n-1) +y (n-2)/3 
1260 : 

1270 REM-x (0) =x (n) : x (n+1) =x (1) : x (n+2) =x (2) 

1280 REM-y (0) =y (n) : y (n + 1) =y (1) 

1281 REM-y (n+2) =y (2) : n=n+l 

1290 : 

1300 mx = (i9-i8) / (x9-x8) : my = (j9-j8) / (y9-y8) 
1310 : 

1320 MODE 1:BORDER 6:INK 0,1:INK 1,24 
1340 : 

1350 FOR k=l TO n 

1360 : i2 = i8 + mx * (x (k) - x8) 

1370 : j 2 = j 8 + my * (y (k) - y8) 
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1380 : REM- IF k>l 

THEN MOVE 11, jl: DRAW 12, j 2 , 1 
1390 : MOVE 12-10,j 2: DRAW i2,j2 + 10, 1 
1395 : DRAW 12 + 10,j2, 1: DRAW i2,j2-10, 1 
1400 : DRAW 12-10,j2, 1 
1410 WEXT k 
1420 : 

1430 : 

1440 FOR k=0 TO n-2 

1450 : FOR t=0 TO 1.01 STEP 0.1 

1460 : 

1470 : hO = (t-1)*t/2: hl = l-t*t 

1480 : h2 = (t + l)*t/2: h3 = (t-1) * (t-2)/2 

1490 : h4 = (2-t)*t 

1495 : 

1500 : xa = h0*x(k) + hl*x(k + l) + h2*x (k+2) 

1510 : ya = h0*y(k) + hl*y(k + l) + h2*y(k+2) 

1520 : 

1530 : xb = h3*x (k + 1) + h4*x (k + 2) + h0*x(k+3) 

1540 : yb = h3*y(k + l) + h4*y(k+2) + h0*y(k+3) 

1550 : 

1560 : x=xa+ (xb-xa) * t 

1570 : y = ya + (yb - ya) * t 

1580 : 

1590 : i2 = i8 + mx * (x - x8) 

1600 : j2 = j8 + my * (y - y8) 

1610 : 

1620 : IF t>0 THEN MOVE il.jl: DRAW i2,j 2, 1 

1630 : il = i2: jl = j2 

1640 : NEXT t 

1650 NEXT k 

1670 a$=INKEY$: IF a$ = "" THEN 1670 
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Grafik 57: Parabolische Interpolation der BRD-Begrenzung 


14.3 Interpolation nach Newton 

Bei der parabolischen Interpolation haben wir im vorhergehenden Kapitel das interpolie¬ 
rende Polynom nach LAGRANGE verwendet. Nun wollen wir die Formel von NEWTON 
einsetzen. 

Sind z. B. in dert,y-Ebene die 3 Punkte Pl(0,yl),P2(l,y2),P3(2,y3) gegeben, so geht durch 
diese Punkte das Polynom 2. Grades 
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yb = yl + t * (y2 - yl + (t - 1) * ((yl + y3)/2 - y2)). 

Für t=0 ist yb=yl. Für t=l ist yb=y2 und für t=2 ist yb=y3. Durch die Punkte 

P0(-l,y0),Pl(0,yl),P2(l,y2) geht das Polynom 

ya = yO + (t + 1) * (yl - yO + t * (CyO + y2)/2 - 

yl)). 

Für t=—1 ist ya=yO. Für t=0 ist ya=y 1 und für t=l ist ya=y2. Verfahren wir analog mit xa 
und xb, so ergeben sich für t-Werte zwischen 0 und 1 das Polynom 3. Grades. 

x = xa + t * (xb - xa) 

y = ya + t * (yb - ya) 

Im Kapitel 12 ist ein Programm zum Verbinden von Zufallspunkten durch glatte Kurven an¬ 
gegeben, das den obigen Betrachtungen entspricht. 

Wir wollen nun ein NEWTONSCFIES Polynom 3. Grades angeben. In der t,y-Ebene seien 
die Punkte P0(— l,y0),Pl(0,yl),P2(l,y2),P3(2,y3) gegeben. Mit den Abkürzungen 

bl = yl - yO, b4 = (b2 - b1)/2 

b2 = y2 - yl, b5 = (b3 - b2)/2 

b3 = y3 - y2, b6 = (b5 - b4)/3 

ergibt sich das Polynom 3. Grades. 

y(t) = yO + (t+1) * (bl + t * (b4 + b6 * (t-1)). 

Setzen wir t=— 1 ein, so ergibt sich y=yO. Für t=0 ist y—yl. für t=l ist y=y2, und fürt=2 ist 
y=y3. 


NEWTON POLYNOME 

durch die P unkt e 
PJL, P2 , P3, . . ,P7 



Grafik 58: Aneinandergesetzte Newton-Polynome 3. Grades 
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Analog verhält sich 

x(t) = xO + (t+1) * (al + t * (a4 + a6 * (t-1))) 

mit al=xl—x0,a2=x2—xl,a3=x3—x2,a4=(a2—al)/2,a5=(a3—a2)/2,a6=(a5—a4)/3. 
Durchläuft t Werte von 0 bis 1, so ergeben die x(t),y(t) Formeln Punkte, die zwischen 
Pl(xl,yl) und P2(x2,y2) liegen. Diese Formeln werden in dem folgenden Programm (Zei¬ 
len 1520 bis 1640) verwendet. Das Programm zeichnet durch aufeinanderfolgende Punkte 
interpolierende Kurven. Zum Zeichnen wird nur der mittlere Bereich von jeweils 4 aufein¬ 
anderfolgenden Punkten verwendet. An den Stoßstellen sind die Kurven nicht glatt, weil die 
Ableitungen rechts bzw. links von der Stoßstelle im allgemeinen verschieden sind. 

1010 REM- fortlaufende (stueckweise) 

1020 REM- parabolische Interpolation 

1025 REM- nach Newton 

1030 REM- es treten (leider) spitze Ecken auf - 

1035 : 

1040 REM n, xl,yl, x2,y2, . xn.yn 

1050 DATA 7, -3,-3, -3, 0, 0, 0, 0, 3, 4, 3 

1060 DATA 6,-1, 0,-3 

1120 : 

1130 DIM x (20) , y (20) 

1140 x8 = -8: x9 =8: y8 = -5: y9 = 5 

1150 i8 = 0.5: i9 =639.5: j8 = 0.5: j9 =399.5 
1160 : 

1170 : READ n 

1190 : FOR k=l TO n 

1200 : READ x (k) ,y (k) 

1210 : NEXT k 
1215 : 

1220 x (0) = x (1)-x (2)+x (3)/3 
1225 x (n+1) = x (n)-x (n-1)-t-x (n-2) /3 
1230 y (0) = y (1)-y (2)+y (3)/3 
1240 y (n+1) = y (n) -y (n-1) +y (n-2) /3 
1260 : 

1270 REM-x (0) =x (n) : x (n+1) =x (1) : x (n+2) =x (2) 

1280 REM-y (0) =y (n) : y(n+l)=y(l): y(n + 2)=y(2) 

1281 REM- n = n + 1 

1290 : 

1300 mx = (i9-i8) / (x9-x8) : my = (j9-j8) / (y9-y8) 
1310 : 

1315 MODE 1:BORDER 6:INK 0,3:INK 1,26 

1320 MOVE i8,j8: DRAW i9-i8,j 8, 1 

1325 DRAW i9-i8,j 9-j 8, 1: DRAW i8,j 9 —j 8, 1 
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1327 DRAW i8 , j8 , 1 

1330 LOCATE 3,3: PRINT "NEWTON-POLYNOME" 

1335 LOCATE 2,6: PRINT "durch die Punkte" 

1340 LOCATE 2,8: PRINT "PI, P2, P3....P7" 

1345 : 

1350 FOR k=l TO n 

1360 : i2 = i8 + mx * (x (k) - x8) 

1370 : j2 = j8 + my * (y (k) - y8) 

1380 : REM- IF k>l 

THEN MOVE il.jl: DRAW i2,j 2 , 1 
1385 : MOVE i2 —10,j 2: DRAW i2,j 2 + 10 , 1 
1390 : DRAW i2+10,j2, 1: DRAW i2,j2-10, 1 
1395 : DRAW 12-10,j2, 1 
1400 NEXT k 
1405 : 

1410 a2 = x (1) -x C0) : a3 = x (2)-x (1) : a5=(a3-a2)/2 
1420 b2=y (1) -y (0) : b3=y (2)-y (1) : b5=(b3-b2)/2 
1430 : 

1440 FOR k=0 TO n-2 

1460 : al = a2: a2 = a3: a3 = x (k + 3)-x (k + 2) 

1470 : bl = b2: b2 = b3: b3 = y (k + 3)-y (k + 2) 

1480 : a4 = a5: a5 = (a3-a2)/2: a6 = (a5-a4)/3 

1490 : b4 = b5: b5 = (b3-b2)/2: b6 = (b5-b4)/3 

1500 : aO = x (k) : bO = y (k) 

1510 : 

1520 : FOR t=0 TO 1.01 STEP 0.1 
1540 : x = ( ((t-1)*a6 + a4)*t + al)* (t + 1) + a0 

1550 : y = ( ( (t-1) *b6+b4) *t+bl) * (t + 1) + bO 

1580 : 

1590 : i2 = i8 + mx * (x-x8) 

1600 : j2 = j8 + my * (y-y8) 

1610 : 

1620 : IF t>0 THEN MOVE il.jl: DRAW i2,j2, 1 

1630 : il = i2: jl = j2 

1640 : NEXT t 

1650 NEXT k 

1660 : 

1670 a$=INKEY$: IF a$="" THEN 1670 

Die Berechnung der Koeffizienten a 1 ,a4 ,a6 ,b 1 ,b4 ,b6 erfolgt außerhalb der t- Schleife in den 
Zeilen 1460 bis 1500. Dadurch ist der Zeitbedarf des Programmes gering. Als Nachteil ist zu 
nennen, daß beim „Weiterschieben“ der Formeln zu den nächsten 4 Stützpunkten (Zeile 
1440ff.) zwar ein stetiger, aber nicht glatter Anschluß erfolgt; d. h., es können „Knicke“ in 
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den Stützpunkten auftreten (Grafik 58). Durch die Zeilen 1350 bis 1400 werden lediglich 
die vorgegebenen Stützpunkte durch Quadrate markiert. In den Zeilen 1220 bis 1240 wird 
ein Vorgängerpunkt P0(x0,y0) und ein Nachfolgepunkt Pn+1 (zusätzlich zu den n-Stütz- 
punkten Pl(xl,yl),.. ,,Pn(xn,yn)) definiert. Soll der gesamte Kurvenzug geschlossen wer¬ 
den, so ist der n-te Punkt mit dem ersten Punkt zu verbinden. In diesem Fall sind die Zeilen 
1270,1280,1281 zu aktivieren. 


14.4 Rationale Interpolation 

Wir wollen hier einen speziellen Algorithmus zur rationalen Interpolation einführen, der 
sich durch wenige Rechenoperationen auszeichnet. Die allgemeine Theorie zu der Interpo¬ 
lation mit rationalen Funktionen ist z. B. in dem Buch „Stoer: Einführung in die Numerische 
Mathematik, Springer-Verlag“ enthalten. 

Wir betrachten zunächst die Abb. 17. In der t,y-Ebene seien die Punkte Pl(0,yl) und 
P2(l,y2) sowie die Steigungen sl=tan(ßl),s2=tan(ß2) der Tangenten gegeben. Diese Tan¬ 
genten berühren die gesuchte (strichpunktierte) Linie in PI bzw. P2. Die Sekante durch 
P1,P2 kann mit der Parameterdarstellung der Geraden durch 

y = yl + t * (y2 - yl) 

ausgedrückt werden. Für jeden t-Wert zwi¬ 
schen 0 und 1 können Sekantenpunkte be¬ 
rechnet werden. Insbesondere sei Q(t,y) 
berechnet (Zeile 1535). Die Abweichungen 
bl,b2 der Tangenten von der Sekanten sind 
ein Maß für die Abweichung der gesuchten 
Kurve (strichpunktiert) von der Sekanten. 

Mit Hilfe des linken schraffierten Dreieckes 
(P1,Q1,Q3) berechnen wir die Abweichung 
bl. Die senkrechte Strecke von Ql bis Q3 
ist t*tan(ßl) = y—yl+bl, d. h. 

bl = yl - y + t * sl. 

In ähnlicher Weise ergibt sich aus dem rech¬ 
ten schraffierten Dreieck (P2,Q2,Q4) 

Abb. 17: Abweichungen b 1 ,b2 für die rationale 
b2 = y2 - y - (1 - t) * s2. Interpolation 

In der Zeile 1545 werden b l,b2 berechnet. Wenn b 1 oder b2 gleich Null ist, so fallen die Tan¬ 
gente und die Sekante zusammen. In diesem Falle, wenn b=bl*b2=0 ist, entspricht die ge¬ 
suchte Kurve der Sekanten y=yt+t*(y2—yl). Ist bl*b2>0, so liegt eine geometrische An¬ 
ordnung ähnlich der Abb. 17 vor, und wir verbessern den y-Wert der Sekanten durch Addi¬ 
tion von bl*b2/(bl+b2). Diese Verbesserung wird in der Zeile 1565 durchgeführt. Ist 
bl*b2<0, so liegen bl und b2 auf verschiedenen Seiten der Sekante. Die gesuchte Kurve 
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wendet in dem betrachteten t-Bereich (Zeile 1570). In diesem Falle wird der y-Wert der Se- 
kannte durch Addition von bl*b2/(bl—b2)*(2t—1) verbessert. 

Anstelle eines t,y-Koordinatensystems können wir in gleicher Weise die obigen Betrachtun¬ 
gen in einem t,x-Koordinatensystem durchführen. Die Steigungen sind mit rl,r2 und 
die Abweichungen von der gesuchten Kurve mit al,a2 bezeichnet (Zeilen 
1530,1540,1555,1560). Bei der hier vorgeschlagenen Methode ist die Wahl der Steigungen 
in den vorgegebenen Punkten frei. Betrachten wir z. B. in der t,y-Ebene 3 aufeinanderfol¬ 
gende Punkte P0(—l,y0),Pl(0,y 1),P2( l,y2), so können wir als Steigung sl im Punkt PI den 
Wert 


sl = (y2 - y0)/2 

wählen. Diese Wahl entspricht der Steigung der Parabel durch P0,P 1,P2 im Punkt PI. In den 
Zeilen 1430,1510 werden diese Steigungen berechnet. Gute Ergebnisse ergeben sich, wenn 
ein Kreis verwendet wird, der durch 3 aufeinanderfolgende Punkte P0,P 1 ,P2 geht. Die Stei¬ 
gung sl im Punkt PI ist dann mit 

hl = 1 + (yl - yO) * (y1 - yO) 
h2 = 1 + (y2 - yl) * (y2 - yl) 

durch 

sl = ((yl - yO) * h2 + (y2 - yl) * hl)/(h2 + hl) 

gegeben. 

Die Grafik 59 ergibt sich als Interpolationskurve durch 8 vorgegebene Punkte der Sinus-Li¬ 
nie (Zeilen 1170 bis 1210). In den Zeilen 1220,1230 werden die Koordinaten eines vorher¬ 
gehenden und nachfolgenden Punktes gewählt. Als Steigung des mittleren von 3 aufeinan¬ 
derfolgenden Punkten wird die Parabel-Steigung gewählt. 
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1010 REM fortlaufende rationale Interpolation 
10 3 5 : 

1130 DIM x (20) , y (20) 

1140 x8 = -1: x9 = 7.3: y8 = -1.1: y9 = 1.1 
1150 i8 = 0.5: i9 =639.5: j8 = 0.5: j9 =399.5 
1160 : 

1170 : n = 8 

1190 : FOR k=l TO n 

1200 : x (k) = (k-1) * 2 * PI / (n-1) 

1205 : y (k) = SIN (x (k)) 

1210 : NEXT k 
1215 : 

1220 x (0) =x (1)-x (2)+x (3)/3 : 

x (n + 1) =x (n) -x (n-1) +x (n-2) /3 
1230 y (0) =y (1) -y (2) +y (3) / 3 : 

y (n+1) =y (n) -y (n-1) +y (n-2) /3 
1260 : 

1300 mx = (i9-i8)/ (x9-x8) : my = (j9-j8)/ (y9-y8) 
1310 : 

1320 MODE 1:BORDER 2:INK 0,1:INK 1,24 
1330 MOVE i8,j8: DRAW i9-i8,j8, 1 
1335 DRAW i9-i8,j 9-j 8, 1: DRAW i8,j9-j8, 1 
1340 DRAW i8 , j 8 , 1 
1345 : 

1350 FOR k=l TO n 

1360 : i2 = i8 + mx * (x (k) - x8) 

1370 : j2 = j8 + my * (y (k) - y8) 

1380 : REM- IF k>l 

THEN MOVE il.jl: DRAW i2,j2, 1 
1390 : MOVE i2—10,j2: DRAW i2,j2 + 10, 1 
1395 : DRAW i2+10,j2, 1: DRAW i2,j2-10, 1 
1400 : DRAW i2-10,j 2, 1 
1410 NEXT k 
1420 : 

1430 r2= (x (2) -x (0) ) /2 : s2= (y (2) -y (0) ) /2 
1435 : 

1440 FOR k=l TO n-1 
1505 : rl = r 2 : r 2= (x (k + 2)-x (k) ) /2 
1510 : sl = s2 : s2= (y (k + 2) -y (k) ) /2 
1515 : 

1520 : FOR t=0 TO 1.01 STEP 0.05 
1530 : x = x (k) + t* (x (k + 1) -x (k) ) 
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1535 

y = y (k) + t* 

(y (k + 1) -y (k) ) 


1540 

al = x (k) - x + 

t * r 1: 



a2 = x (k + 1) - x 

- (1-t) *r2 


1545 

bl=y(k) - y + 

t*sl: 



b2=y(k + l) - y 

- (1-t) *s2 


1550 

a = al*a2: b 

= bl*b2 


1555 

IF a>0 THEN x 

= x + a/ (al + a2) 


1560 

IF a<0 THEN x 

= x+a/ (al-a2) * 

(t + t-1) 

1565 

IF b>0 THEN y 

= y+b/ (bl+b2) 


1570 

IF b<0 THEN y 

= y+b/(bl-b2)* 

(t + t-1) 

1580 

1590 

i2 = i8 + mx 

* (x-x8) 


1600 

1610 

j2 = j8 + my 

* (y-y8) 


1620 

IF t>0 THEN MOVE il.jl: DRAU 

i 2 . j 2 , 

1630 

i1 = i2: jl = 

j 2 


1640 

NEXT t 



1650 NEXT k 



1660 




1670 a$=INKEY$: IF a$ = "" 

THEN 1670 



14.5 Bezier-Kurven 

BEZIER-Kurven verhalten sich ähnlich einem biegesteifen Stahlband, dessen Enden fest 
eingespannt sind, wobei zusätzlich eine Dehnbarkeit des Stahlbandes in Längsrichtung an¬ 
genommen wird. 

Zieht man beispielsweise das Stahlband in die Mitte nach unten, so tritt eine Verformung 
auf. Aufgrund der Elastizität treten keine Knicke, sondern „gerundete“ Ausbeulungen auf. 
An dem Stahlband- Modell könnten noch weitere Kräfte in unterschiedlicher Richtung an¬ 
greifen. Auf diese Weise würden glatte Kurven ohne Ecken und Kanten entstehen. Diese 
Kurven entsprechen BEZIER-Kurven. Die vorgegebenen Stützstellen stellen Zug-An¬ 
griffspunkte dar, unter denen sich das Stahlband wie eine „Gummihaut“ wölbt. Bis auf die 
Endpunkte liegen gewöhnlich alle Stützstellen außerhalb der BEZIER-Kurve. 

BEZIER entwickelte für die französische Autofirma Renault diese Methode zur Gestaltung 
von gekrümmten Automobilteilen mit Hilfe der Computer-Grafik. 

Sind x(k),y(k) mit k=0,l,2,.. ,,n die vorgegebenen Stützstellen, so ergeben sich die Kurven¬ 
punkte x(t),y(t) gemäß der Binominal-Entwicklung: 
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Grafik 60: Bezier-Kurve 


x(t>= X (k)*t k *(i-tr k *x(k) 

k -0 

»(•)- i 

k -0 

Der Binominalkoeffizient 

n n*(n—l)»(n—2)».(n-k+1) 

1*2*3*...k 

ist im Programm mit c(k) bezeichnet und wird in der Schleife 440—460 berechnet. Für jeden 
Parameter t, der zwischen 0 und 1 liegt, muß der Kurvenpunkt x(t),y(t) berechnet werden. 
Hierzu ist jeweils über alle Punkte (Zeile 540 bis 580) gemäß der obigen Formeln zu sum¬ 
mieren. Diese Summation wird in den x,y-Speichern durchgeführt (Zeilen 560,570). Die 
Koordinaten x,y werden in den Zeilen 600,610 in die entsprechenden Bildschirmkoordina¬ 
ten umgerechnet. In der Zeile 620 wird eine Linie vom vorhergehenden Kurvenpunkt 
(il,j 1) zum aktuellen Kurvenpunkt (i2,j2) gezeichnet. Der erste Kurvenpunkt (für t=0) wird 
außerhalb der t-Schleife (Zeilen 520—640) in den Zeilen 480,490 berechnet. Die Schritt¬ 
weite d (Zeile 510) bestimmt die Anzahl der zu berechnenden Kurvenpunkte gemäß der 
Zeile 520. Die Zeilen 330 bis 410 dienen lediglich zum Zeichnen und Verbinden der n vor¬ 
gegebenen Kontrollpunkte x(k),y(k) durch einen Polygonzug. Die BEZIER-Kurven bilden 
Schleifen, wenn sich die vorgegebenen Kontrollpunkte x(k),y(k) überkreuzen. Wird ein 
Punkt mehrfach eingegeben, so nähert sich die BEZIER-Kurve diesem Punkt stärker an. 
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150 

REM- 

- Bezier- 

Kurven 

— 


160 

170 

REM 

n, xO,yO, 

xl,yl, 

x2,y2 , ... , 

xn, yn 

180 

DATA 

8, -4,-4, 

-4, 4, 

0, 4, 0,-4, 

1, 3 

190 

DATA 

2, 4, 

3, 3, 

4,-4, 2,-4 


200 

: 





210 

x8 =- 

■4.5: x9 = 

4.5: 

y8 =-4.5: y9 

= 4.5 


220 i8 = 0.5: i9 =639.5: j8 = 0.5: j9 =399.5 
230 : 

240 READ n: DIM x (n) , y (n) , c (n) 

250 FOR k=0 TO n: READ x(k),y(k): NEXT k 
260 : 

270 mx = (i9-i8) / (x9-x8) : my = (j9-j8) / (y9-y8) 

280 MODE 1:BORDER 2:INK 0,1:INK 1,24 

290 MOVE i8,j 8: DRAW i9—i8,j 8, 1 

300 DRAW i9-i8ij 9-j 8 , 1: DRAW i8,j 9 —j 8, 1 

310 DRAW i8,j 8 , 1 

320 : 

330 FOR k=0 TO n 

340 : i2 = i8 + mx * (x (k) - x8) 

350 : j2 = j8 + my * (y (k) - y8) 

360 : IF k>0 THEN MOVE il.jl: DRAW i2 , j 2 , 1 

370 : MOVE 12—8,j 2: DRAW i2,j2 + 8, 1 

380 : DRAW i2 + 8,j2, 1: DRAW i2.j 2-8 , 1 

390 : DRAW 12-8,j2, 1 

400 : il = i2: jl = j2 

410 NEXT k 

420 : 

430 c(0) = 1 

440 FOR k=l TO n 

450 c (k) = c (k-1) * (n-k+1)/k 

460 NEXT k 

470 : 

480 il = i8 + mx * (x (0) - x8) 

49 0 jl = j8 + my * (y (0) - y8) 

500 : 

510 d = 0.02 

520 FOR t=d TO l+d/2 STEP d: x = 0: y = 0 

530 : IF t> = l THEN x = x (n) : y = y(n):GOTO 600 

540 : FOR k=0 TO n 

550 : c = c (k) * t~k * (1-t) ~ (n-k) 

560 : x = x + c*x(k) 
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570 : y = y + c*y (k) 

580 : NEXT k 
590 : 

600 : i2 = iS + mx * (x-x8) 

610 : j2 = j8 + my * (y-y8) 

620 : MOVE 11, jl: DRAW 12, j 2, 1 

630 : il = 12: jl = j2 

640 NEXT t 
650 : 

660 a$=INKEY$ : IF a$ = "" THEN 660 
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15. 3D-Darstellungen 


Dreidimensionale grafische Darstellungen vermitteln dem Beobachter im allgemeinen ei¬ 
nen natürlichen Seheindruck. Zur besseren Übersicht werden verdeckte Linien und Kanten 
durch einen geeigneten HIDDEN-LINE-Algorithmus unterdrückt. Wir besprechen zu¬ 
nächst die Dimetrie, Isometrie, Kavalierperspektive und die Militärperspektive und leiten 
unter anderem die benötigten Formeln ab. 


15.1 Parallelprojektionen 

Wir wollen nun 3-dimensionale Objekte 
auf dem Bildschirm darstellen und die zu¬ 
gehörigen Abbildungsformeln herleiten. 

Dazu betrachten wir die Abb. 18. Ein 
Raumpunkt P ist durch die 3 Koordinaten 
u,v,w festgelegt. Die Zeichenebene (Bild¬ 
schirmebene) sei die x,y-Ebene. Der 
Raumpunkt P(u,v,w) hat in der Zeichen¬ 
ebene die Koordinaten x,y. Unser Ziel ist es, 
bei vorgegebenen u,v,w-Werten die x,y- 
Werte zu ermitteln. Betrachten wir in der 
Abb. 18 die dicken, horizontalen Linien, so 
ergibt sich x+x2=xl. Die dicken vertikalen 
Linien liefern y+yl+y2=w. 

Somit ist 

x = xl - x2 
y = w - yl - y2. 

Wenn wir xl,x2,yl,y2 durch u,v ausdrücken, so haben wir die gesuchten Formeln für das 
3D-Zeichnen. Das xl,yl,v-Dreieck liefert 

xl = v * cos(ß-90°) = +v * sin(ß) 

yl = v * sin(ß-90°) = -v * cos(ß), 

und das x2,y2,u-Dreieck liefert 

x2 = u * cos(a-90°) = +u * sin (a) 

y2 = u * sin(a-90°) = -u * cos(a). 

Setzen wir xl,x2,y l,y2 in die Formeln x=xl—x2, y=w—y 1—y2 ein, so erhalten wir die End¬ 
formeln 

x = -u*sin(a) + v*sin(ß) 
y = +u*cos(oc) + v*cos(ß) + w. 
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Diese leicht zu programmierenden Endformeln bilden die Grundlage für alle 3D-Parallel- 
projektionen, wie z. B. die Dimetrie, Isometrie, Kavalierperspektive, Militärperspektive. 

Werden für u,v,w die Koordinaten von Körperpunkten verwendet, so liefern die Endfor¬ 
meln die zugehörigen Koordinaten x,y in der Zeichenebene. Mit diesen beiden Formeln 
können alle Eckpunkte eines Körpers in Zeichenkoordinaten umgerechnet werden. Durch 
Aufträgen dieser x,y-Werte erhalten wir in der Zeichenebene ein 3-dimensionales Bild 
(„Drahtmodell“) des Körpers. 


15.2 Dimetrie, Isometrie, Kavalier- und Militärperspektive 

Wir wollen diese allgemeinen Gleichungen durch die Wahl von a,ß spezialisieren. Für die 
Dimetrie gilt a=131.42° und ß=97.18°. Weiterhin ist für die Dimetrie festgelegt, daß die 
u-Werte (s. Abb. 18) verkürzt werden, d. h. es gilt u:v:w = 0.5:1:1. 

Setzen wir dies in x=—u*sin(a)+v*sin(ß) und y=+u*cos(a)+v»cos(ß)+w ein, so erge¬ 
ben sich die Dimetrie- Formeln 

x = -0.37494 * u + 0.99216 * v 
y = -0.33079 * u - 0.12499 * v + w. 

Zur Berechnung der Zeichenkoordinaten x,y aus den Eckpunkten (u,v,w) eines Körpers 
kann z. B. das folgende Programm verwendet werden: 

10 INPUT "u,v,w ="; u, v, w 
20 x = - 0.37494 * u + 0.99216 * v 
30 y = - 0.33079 * u - 0.12499 * v + w 
40 PRINT x, y 
50 GOTO 10 

Geben wir z. B. die Eckpunkte (u,v,w) eines Würfels (s. folgende Tabelle) mit der Kanten¬ 
länge 100 ein, so erhalten wir die x,y-Werte: 


u 

V 

w 

X 

y 

0 

0 

0 

0.0 

0.0 

100 

0 

0 

-37.4 

-33.0 

100 

100 

0 

61.7 

-45.5 

0 

100 

0 

99.2 

-12.4 

0 

0 

100 

0.0 

100.0 

100 

0 

100 

-37.4 

66.9 

100 

100 

100 

61.7 

54.4 

0 

100 

100 

99.2 

87.5 
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Tragen wir die x,y-Werte in ein x,y-Koordinatensystem ein und verbinden die Punkte, so er¬ 
gibt sich die Abb. 19. Bei der dimetrischen Darstellung von Körpern erscheinen senkrechte 
Kanten auch im Bild senkrecht. Die Darstellung des Würfels in der Abb. 19 zeigt, daß wir 
„von vorn“ gegen die v,w-Ebene des Würfels sehen. 


Soll statt dessen von vorn die u,v-Ebene des 
Würfels sichtbar sein, so ist das u,v,w-Sy¬ 
stem um 90° um die w-Achse zu drehen. Mit 
<x=262.82°, ß=48.58° und u:v:w = 1:0.5:1 
ergeben sich aus x=—u*sin(a) + v*sin(ß), 
y=+u*cos(a) + v*cos(ß) + w die Dime- 
trie-Formeln: 

x = +0.99216 * u + 0.37494 * v 
y = -0.12499 * u + 0.33079 * v + w. 

Für andere Parallelprojektionen sind die 
Winkel a,ß in den allgemeinen Formeln 
x=-u*sin(a) + v*sin(ß), y=+u*cos (a) + 
v*cos(ß) + w entsprechend zu spezifizieren. 
Setzen wir a= 120°, ß= 120°, so ergeben sich 
die 

Isometrie-Formeln 



Abb. 19: Dimetrische Darstellung eines Würfels 


x = (-u+v) * sqr(3)/2 

y = (-u-v)/2 + w. 

Für die Kavalierperspektive gilt a = 135°, ß = 90° und mit u:v:w = 0.5:1:1 ergibt sich 

x = -0.35355 * u + v 

y = -0.35355 * u + w. 

Bei der Kavalierperspektive werden alle zum Aufriß parallelen Flächen in wahrer Größe ab¬ 
gebildet. 


Für die Militärperspektive gilt a = 135°, ß = 135° und mit u:v:w = 1:1:1 ergibt sich 

x = (-u+v) * sqr(2)/2 
y = (-u-v) * sqr(2)/2 + w. 

Bei der Militärperspektive werden alle zum Grundriß parallelen Flächen in wahrer Größe 
abgebildet. Die lotrechten Strecken sind untereinander parallel und erscheinen in wahrer 
Größe. 
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15.3 3D-Darstellungen von Funktionen 

Wir wollen Funktionen w=f(u,v), die über einem rechteckigen Gebiet 
u8<=u<=u9,v8<=v<=v9 erklärt sind, grafisch darstellen. Zur Erläuterung wählen wir 
die Funktion w=cos(u)*e _v “ v , die in der BASIC-Schreibweise 

w = COS(u) * EXP(-v*v) 


entspricht. 

Der jeweilige w-Wert ist durch die Variablen u,v festgelegt. Wenn wir „per Hand“ solche 
Funktionen, die von 2 Variablen abhängen, aufzeichnen wollen, so ist zunächst eine Werte¬ 
tabelle zu berechnen. Hierzu verwenden wir 2 geschachtelte Schleifenanweisungen (Zeilen 


510,520). 



130 

REM- Wertetabelle fuer w = f(u,v) - 

210 

u8 = -2: u9= 2: 

v8 = -2: 

v9 = 2 

220 

i8 =0.5: i9 =639.5: 

j 8 =0.5: 

j 9 =399.5 

260 

x8 = -3: x9= 3: 

y8 = -1: 

y9 = 1.2 

265 





450 

mx = (i9-i8) / (x9-x8) 



460 

my = (j9-j8) / (y9-y8) 



480 





510 

FOR v=v8 TO v9 STEP (v9-v8)/4 


520 


FOR u=u8 TO u9 STEP (u9-u8) 

/4 

530 





540 


w = EXP (-v*v) * 

COS (u) 


545 





550 


x = u + v/SQR (8) 



555 


y = w + v/SQR (8) 



560 


i2% = iS + mx * 

(x-x8) 


570 


j2%=j8+my* 

Cy-y8) 


575 





610 


PRINT u; v; w; 

X; y. 

i2%; j 2% 

615 





700 


NEXT u 



710 

NEXT v 




Der Wert der Funktion wird in Zeile 540 berechnet. Da die u-Schleife als innere Schleife be¬ 
sonders oft durchlaufen wird, ist darauf zu achten, daß unnötige Berechnungen aus der inne¬ 
ren Schleife herausgenommen werden. 

Z. B. könnte in der Zeile 

515 h = EXP(-v*v) 
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berechnet und in der Zeile 540 durch 

540 w = h * COS(u) 

ersetzt werden. Obwohl durch das Entfer¬ 
nen von Termen aus der inneren Schleife 
die Ausführungszeit verkürzt wird, verzich¬ 
ten wir an dieser Stelle zugunsten der besse¬ 
ren Übersicht darauf. 


Abb. 20: Darstellung der Funktion w(u,v) als 
Relief 



Für die Funktion w=w(u,v) bilden die vorgegebenen u-Grenzen u8,u9 und die v-Grenzen 
v8,v9 (s. Zeile 210) ein rechteckiges Grundgebiet, ln der Abb. 20 ist die Funktion w(u,v) 
symbolisch als Relief dargestellt. Zu einem Punkt der u,v-Ebene kann die Stützhöhe 
w=w(u,v) berechnet werden. Diese Stützhöhen bilden eine (gekrümmte) Relief-Fläche im 
Raum. Jeder Punkt p dieser Fläche wird durch die räumlichen Koordinaten u,v,w beschrie¬ 
ben. Die Umrechnung dieser Raumpunkte (u,v,w) in die Zeichenebene (x,y-Ebene) ist im 
Kapitel 15.1 erklärt. Für die Kavalierperspektive gelten die Formeln: 

x = u + v/sqr(8) 

y = w + v/sqr(8) 

Hierbei ist (u,v,w) ein Raumpunkt und (x,y) der zugehörige Punkt in der Zeichenebene. 
Durch die Programmzeilen 510,520,540 sind u,v,w gegeben. Die Umrechnung in die Bild¬ 
schirmkoordinaten wird durch die Zeilen 560,570 veranlaßt. In der Zeile 610 wird u,v,w 
und x,y ausgegeben. Abgesehen von der Form der Ausgabe liefert das Programm für die 
Stützhöhen w der Funktion w = COS(u) * EXP(—v*v) die Werte: 


V 

U 

-2.00 

-1.00 

0.00 

1.00 

2.00 

-2.0 




0.02 


-0.01 

-1.0 


-0.15 


0.37 



0.0 




1.00 

0.54 

WX3EM 

+ 1.0 


-0.15 

0.20 

0.37 

0.20 

-0.15 

+2.0 


-0.01 

0.01 

0.02 

0.01 

-0.01 


Es kann z. B. für v=— l,u=0 aus der obigen Tabelle der Wert w=0.37 entnommen werden. 
Als zugehöriger Punkt (x,y) in der Zeichenebene liefert die folgende Tabelle 
x=—0.35,y=0.01 für die Koordinaten x,y in der Zeichenebene (Kavalierperspektive 
x=u+v/sqr(8), y=w+v/sqr(8)). 
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V 

u -2.00 

-1.00 

0.00 

1.00 

2.00 

■ 

—2.71/—0.71 
—2.35/—0.51 
—2.00/—0.42 
—1.65/+0.20 
—1.29/+0.70 

—1.71/—0.70 
—1.35/—0.15 
—1.00/+0.54 
—0.65/+0.55 
—0.29/+0.72 

—0.71/—0.69 
—0.35/+0.01 
0.00/+1.00 
+0.35/+0.72 
+0.71/+0.73 

+0.29/—0.70 
+0.65/—0.15 
+1.00/+0.54 
+1.35/+0.55 
+ 1.71/+0.72 

+1.29/—0.71 
+1.65/—0.51 
+2.00/—0.42 
+2.35/+0.20 
+2.71/+0.70 


Wenn wir die Punkte (x,y) der letzten Tabelle in ein x,y-System eintragen und die Punkte 
durch Geraden verbinden, so erhalten wir Abb. 21. 

Indem wir eine kleinere u- und v- Schritt¬ 
weite (Zeile 510,520) wählen, ergeben sich 
mehr Bildpunkte und damit eine genauere 
Darstellung von w = COS(u) * EXP(—v*v). 

Zur besseren Verständlichkeit wurde die ta¬ 
bellarische Darstellung von w = w(u,v) und 
das Zeichnen von Hand ausgeführt. Die 
Darstellung von Funktionen mit zwei Va¬ 
riablen in einer Tabelle ist in der Technik 
weit verbreitet. 

Damit das Wertetabellenprogramm die 
Funktion w = COS(u) * EXP(—v*v) auto¬ 
matisch zeichnet, ist es zu ergänzen. Die 
Programmzeile 220 legt den linken (i8), 
rechten (i9), unteren (j8) und oberen (j9) 

Rand des Bildschirmes fest. Die Umrechnung von x,y in die physikalischen Bildpunkte 
(i2%,j2%) geschieht durch die Zeilen 560,570. Da bei der Besetzung der Ganzzahlvaria¬ 
blen (Integer) i2%,j2% die Nachkommastellen abgeschnitten werden, wurde 0.5 (s. Zei¬ 
le 220) addiert. 

Die Werte von i2% sind ganzzahlig und müssen zwischen 0 und 639 liegen. Entsprechend 
liegt j2% zwischen 0 und 399. Die x,y-Maßstäbe mx,my für die Umrechnung von x,y in 
i2% ,j2% werden in den Zeilen 450,460 ermittelt und in den Zeilen 560,570 verwendet. Da¬ 
mit für zwei aufeinanderfolgend berechnete Punkte die Verbindungslinie gezeichnet wird, 
sind die Zeilen 265,610,615 durch: 

265 MODE 2:B0RDER 3:INK 0,1:INK 1,26 

610 IF u<>u8 THEN M0VE i1%,j1%: DRAW i2%,j2%,1 

615 i1% = i2%: j1% = j2% 

zu ersetzen. Wird die Schrittweite (Zeilen 510,520) verkleinert, so liefert der Programmlauf 
die Grafik 61. Hierbei ergibt sich für jeden v-Wert eine Linie, die der Funktion w=w(u,v) 
mit v als Parameter entspricht (siehe Reliefdarstellung Abb. 20). Beim Zeichnen wird keine 



Abb. 21: Darstellung der Zeichenebene 
„per Hand “ 
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Rücksicht darauf genommen, ob Linien unsichtbar sind. Zur besseren Übersicht geben wir 
das geänderte Programm vollständig wieder: 



Grafik 61: 3D-Darstellung von w = EXP(—v*v) * COS(u) einschließlich der nichtsichtbaren Linien 


130 REM- 3-D-DarStellung von Funk- - 

140 REM- tionen w = w(u,v) mit - 

150 REM- allen unsichtbaren Linien - 


210 

u8 = -2: 

u9 = 

2: 

v8 = -2: 

v9 

220 

i8 =0.5: 

i 9 =639.5: 

j 8 =0.5: 

j9 

260 

x8 = -3: 

x9 = 

3 : 

y8 = -1: 

y9 


263 : 

265 MODE 2:BORDER 3:INK 0,1:INK 1,26 
270 MOVE i8,j8: DRAW i9-i8,j8, 1 
275 DRAW i9-i8,j9-j8, 1: DRAW i8,j9-j8, 1 
280 DRAW i8 , j8, 1 
285 : 

450 mx = (i 9-i 8) / (x9-x8) 

460 my = (j9-j8) / (y9-y8) 

480 : 

510 FOR v=v8 TO v9 STEP (v9-v8)/20 
520 : FOR u=u8 TO u9 STEP (u9-u8)/20 
530 : 

540 : w = EXP (-v*v) * COS (u) 

545 : 

550 : x = u + v/SQR (8) 

555 : y = w + v/SQR(8) 
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560 

: 12% = 

i 8 

+ mx 

* (x-xS) 

570 

: j 2% = 

3 8 

4- my 

* (y-y8) 

575 





610 

: IF u< 

>u8 




THEN 

MOVE 

11%, 

jl%: DRAW 

615 

: i 1% = 

i 2% 

: jl% 

= j 2% 

700 

: NEXT u 




710 

NEXT v 




715 

: 




720 

a$=INKEY$: 

IF 

a $ = " " 

THEN 720 


15.4 Hidden — Line — Algorithmus 

Das im letzten Kapitel beschriebene Programm zum Zeichnen von Funktionen w=w(u,v) 
wollen wir nun durch einen Algorithmus ergänzen, der die unsichtbaren Linien unterdrückt. 
Zur Erklärung betrachten wir das Relief der Abb. 22. 

Die Linie 1 wird von links nach rechts ge¬ 
zeichnet, d. h. für einen festgehaltenen 
v-Wert läuft u von u8 bis u9. Nach der Be¬ 
rechnung von w = cos(u)*exp(—v*v) wird 
(u,v,w) in (x,y) und danach (x,y) in den 
physikalischen Bildpunkt (i2%,j2%) um¬ 
gerechnet. Dieser alte Bildpunkt wird in 
il%=i2%,jl%=j2% gespeichert. Nach¬ 
dem u erhöht und der neue Bildschirm¬ 
punkt i2%,j2% berechnet ist, wird eine Li¬ 
nie von (il%,jl%) nach (i2%,j2%) ge¬ 
zeichnet (s. Zeile 650 des folgenden Pro¬ 
grammes). Auf diese Weise wird die Linie 1 
gezeichnet. Die Abb. 22 zeigt, daß die Li¬ 
nie 2 teilweise durch die Linie 1 verdeckt 
wird. Da die Linie 2 nur bei „Sichtbarkeit“ gezeichnet werden soll, also die unsichtbaren 
Teilstücke wegfallen, speichern wir die Ordinatenwerte aller Linienendpunkte in ein Feld. 
Für jeden Feldindex k = 0,1,2,.. .,639 enthält dieses Feld h9%(k), den höchsten Ordinaten- 
wert aller bisher gezeichneten Linien. Der Feldindex k entspricht dem x-Wert auf der 
x-Achse. In dem Speicher h9%(k) ist immer ein Wert zwischen 0 und 399 vorhanden. Diese 
Speicherinhalte entsprechen den y-Werten der höchsten Begrenzungslinie. 

Eine Linie von PI nach P2 ist nur dann ganz sichtbar, wenn der linke Linienendpunkt PI 
(il%,jl%) oberhalb von h9%(il%) und auch der rechte Linienendpunkt p2 (i2%,j2%) 
oberhalb von h9%(i2%) liegt. Nur in diesem Fall wird die Linie von PI nach P2 gezeichnet 
und der Teilbereich h9%(il%).. ,h9%(k).. .h9%(i2%) des Bildschirmhorizontes entspre- 



Abb. 22: Oberer Bildschirmhorizont h9%(k) 


118 




chend aktualisiert. Für k = il%,il%+l,.. .,i2% ist gemäß der Geradengleichung 

h9%(k) = j1% + Ck—2%—j1%)/(i2%—i1%) 

der Horizont mit den höheren Horizontwerten zu besetzen (siehe Zeile 620). Die Variable p 
(s. Zeilen 605,620) gibt an, ob beide Linienendpunkte sichtbar sind. Sie beinhaltet den Wert 
Null, wenn mindestens ein Linienendpunkt verdeckt wird. Ist p=0, so werden die DRAW- 
Befehle (s. Zeile 645) übersprungen. 

Analog dem oberen Horizont h9%(k) wird mit dem unteren Horizont h8%(k) gearbeitet. 
Eine Linie wird nur dann gezeichnet (p gesetzt), wenn beide Endpunkte des Linienstückes 
oberhalb von h9%(k) oder beide Endpunkte unterhalb von h8%(k) liegen. Alle Elemente 
von h8%(k) werden in Zeile 470 mit 399 vorbesetzt. Die erste Linie auf dem Bildschirm 
liegt über dem unteren Bildschirmrand (0) und überschreibt dadurch die h9%(k)-Werte 
(Zeilen 615,620). Ebenso überschreibt die erste Linie den h8%(k)-Horizont (Zeilen 
625,630). 

Eine Fläche wird besonders anschaulich, wenn begrenzende Linien in u- und v-Richtung ge¬ 
zeichnet werden. Um auch in v-Richtung zeichnen zu können, werden beim Zeichnen in 
u-Richtungalle berechneten Linienendpunkte i2%,j2% in den Feldern i2%(i) und j2%(i) 
aufgehoben (Zeile 670). Zudem wird im p%(i)-Feld gespeichert (Zeile 680), ob diese Li¬ 
nie sichtbar war. In der Zeile 660 wird bei Sichtbarkeit der alten Linie der u,w-Ebene eine 
Gerade vom neuberechneten Punkt (i2%,j2%) in der parallelen u,w-Ebene zum alten 
Punkt (i2%(i),j2%(i)) gezeichnet. Neutralisiert man die Zeile 660 durch ein eingefügtes 
„REM“ hinter der Zeilennummer, so ergeben sich nur Linien in u-Richtung (s. Grafik 62). 



Wir besprechen nun der Reihe nach die Programmzeilen zum Zeichnen einer Funktion w = 
w(u,v) über einem rechteckigen u,v-Grundgebiet. 
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Die aktuelle Funktion ist in dem Unterprogramm Zeile 160 bis 180 enthalten. In der Zei¬ 
le 210 sind die u-Grenzen u8,u9 und v-Grenzen v8,v9 sowie die Anzahl nu der u-Intervalle 
und die Anzahl nv der v-Intervalle enthalten. Die Zeile 220 legt den Bildschirmausschnitt 
fest. Es wurde jeweils 0.5 addiert, um eine Rundung der Werte zu erreichen. W1 gibt den 
Winkel (in Grad) zwischen der y-Achse und der u-Achse (Zeile 230) und w2 den Winkel (in 
Grad) zwischen der y-Achse und der v-Achse an. Der Wert wO dient zum Umrechnen der 
Winkel in das Bogenmaß. In den Zeilen 240,250 werden die trigonometrischen Funktionen 
berechnet, die als Koeffizienten bei der Umrechnung eines Raumpunktes (u,v,w) in die Zei¬ 
chenkoordinaten 


x = -u*sin(w1) + v*sin(w2) 
y = +u*cos(w1) + v*cos(w2) + w 


auftreten (s. 15.1). 

In der Zeile 280 können die kleinsten (x8,y8) und größten (x9,y9) Werte der Zeichenebene 
eingetragen werden. Gewöhnlich liegt x8 in derselben Größenordnung wie u8 und x9 in 
derselben wie u9. Dagegen wird y8 und y9 stark vom Extremwert w der Funktion w = w(u,v) 
beeinflußt. Das Programmstück 

290 PRINT " Berechnen der Extremwerte 
PRINT "xmin, xmax, ymin, ymax 
300 PRINT "der Zeichenebene:": 

PRINT " v = 

320 : 

330 FOR v=-2 TO 2 STEP 0,4 
335 : PRINT v; 

340 : FOR u=-2 TO 2 STEP 0.4 

34 5 : 

350 : w = EXP (-v*v)*COS (u) : REM GOSUB 160 

360 : x = -u*sl + v*s2 

370 : y = u*cl + v*c2 + w 

375 : 

380 : IF x<x8 THEN x8=x 

390 : IF x>x9 THEN x9=x 

400 : IF y<y8 THEN y8=y 

410 : IF y>y9 THEN y9=y 

420 : NEXT u 

425 NEXT v: PRINT: PRINT 

430 : 

440 PRINT "280 x8= ";x8;":x9= ";x9;":y8= ";y8; 

":y9= ";y9;":goto 450" 
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berechnet die unbekannten Extremwerte x8,x9,y8,y9 für die Maßstabsfaktoren mx,my der 
Zeichenebene. Dieses Programmstück ist in etwas geänderter Form in dem Programm „3- 
dim-Darstellung von w = w(u,v)“ enthalten. Mit dem berechneten Funktionswert w (Zei¬ 
le 350) werden die x und y-Werte berechnet und das jeweils kleinste und größte x und y (Zei¬ 
len 380,390,400,410) in x8,y8 und x9,y9 gespeichert und durch Zeile 440 angezeigt. Indem 
die angezeigte Ausgabe mit der Zeilennummer 280 mit dem COPY-CURSOR übernom¬ 
men und die ENTER-Taste betätigt wird, wird die inaktivierte Zeile 280 durch die aktuelle 
Zeile ersetzt. Wenn x8 kleiner gewählt wird, so verschiebt sich die Zeichenfigur nach rechts. 

Entsprechendes gilt für x9,y8,y9. Die Umrechnung der Zeichenkoordinaten i2%,j2% ge¬ 
schieht mit Hilfe der Maßstabsfaktoren mx,my (Zeile 450,460). 

In der Zeile 470 wird der untere Horizont h8%(k) mit 399 vorbesetzt. Der obere Horizont 
h9%(k) beinhaltet den Anfangswert 0. Durch die Zeile 500 wird der hochauflösende Bild¬ 
schirm eingeschaltet. Die beiden geschachtelten Schleifen (510,540) beinhalten die voll¬ 
ständige Berechnung der physikalischen Bildkoordinaten i2%,j2% und den HIDDEN-LI- 
NE-Algorithmus. Entsprechend den Gleichungen 

x = -u * sl + v * s2 

y = +u * cl + v * c2 + w 

und 

i2% = i8 + mx * (x-x8) 

j2% = j8 + my * (y-y8) 

ist ein Teil der Berechnungen aus der innersten Schleife (Zeile 520) herausgenommen wor¬ 
den. Liegt ein berechneter Punkt i2%,j2% außerhalb des Bildschirmes 
(i8=0,i9=639,j8=0,j9=399), so wird (i2%,j2%) als Randpunkt des Bildschirmes ange¬ 
nommen (Zeilen 580,585,590,595). In den Zeilen 615,620 wird der Horizont h9%(k) und 



Grafik 63: Liniennetz mit HIDDEN-LINE-Algorithmus zur grafischen Darstellung der Funktion 
w = exp(—v*v) * cos(u) 
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in den Zeilen 625,630 der Horizont h8%(k) besetzt. Dabei wird auch die „Sichtbarkeits¬ 
flagge“ p gesetzt. Abhängig von p wird eine Linie von pl(il%,jl%) nach P2(i2%,j2%) ge¬ 
zeichnet (Zeile 650). Diese Linie verläuft in einer parallel zur w,u-Ebene liegenden Ebene. 

Die Zeile 660 veranlaßt bei vorliegender Sichtbarkeit das Zeichnen einer Linie in einer zur 
w,v-Ebene parallelen Ebene. Dadurch erhalten wir ein rechteckförmiges Netz (Grafik 63). 
Die Netzdichte wird durch nu,nv (Zeile 210) festgelegt. Wird die Zeile 660 durch ein einge¬ 
fügtes „REM“ nicht bearbeitet, so ergibt sich die Grafik 62. Die Grafik 64 erhält man, wenn 
in der Zeile 210 die v-Grenze v8=—0.2 gesetzt wird. Der Horizont h8%(k) bewirkt, daß wir 



Grafik 65: Liniennetz ohne Druntersicht 
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das Innere der Figur sehen. Wird die Zeile 630 durch ein eingeschobenes „REM“ inakti¬ 
viert, so ist der Horizont h8%(k) nicht mehr vorhanden, und wir erhalten die Grafik 65. 

100 REM- 

105 REM— 3-dim-Darstellung von w = w(u,v) 

107 REM- 

110 REM— Unterprog fuer w Zeilen 160-180 — 

115 REM— min-max-Berechnung Zeilen 290-440 — 

120 REM— Linien zeichnen Zeile 650 

125 REM— Hidden-Line-Algorithmus 600-680 — 

130 : 

140 PRINT " Besetzen der Startwerte : "; 

150 GOTO 200 
155 : 

160 REM- Unterprogramm fuer w = w(u ( v) - 

16 5 : 

170 w=EXP (-v*v)*COS (u) 

175 : 

180 RETURN 
190 : 

195 : 

200 DIM i 2% (100) , j2%(100), p%(100), 
h8% (639) i h9% (639) 


210 

u8 = -2: 

u9 = 2: v8 

= -2: v9 


nu = 20: 

nv = 20 


220 

i8 =0.5: 

i 9 =639.5: 

j 8 =0.5: 


230 wl = 270: w2 = 45: wO = PI/180 
240 sl = SIN (wl*w0) : s2 = SIN(w2*w0)/2 
250 cl = COS (wl *w0) : c2 = COS(w2*wO)/2 
260 PRINT "o.k." 

270 : 

280 REM- x8=-3:x9 = 3:y8=-l:y9= 1.2: goto 450 

285 : 

290 PRINT " Berechnen der Extremwerte ";: 

PRINT "xmin, xmax, ymin, ymax 
300 PRINT "der Zeichenebene": 

PRINT " fuer v = "; 

310 : 

320 x8 =9E+09: x9 =-x8: y8 = x8: y9 =-x8 
325 : 

330 FOR v=v8 TO v9 STEP (v9-v8)/nv/2 
335 : PRINT v; 
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340 : FOR u=u8 TO u9 STEP (u9-u8)/nu/2 

350 : GOSUB 160 

360 : x = —u * s1 + v*s2 

370 : y = u*cl + v*c2 + w 

380 : IF x<x8 THEN x8=x 

390 : IF x>x9 THEN x9=x 

400 : IF y<y8 THEN y8=y 

410 : IF y>y9 THEN y9=y 

420 : NEXT u 

425 NEXT v: PRINT: PRINT 

430 : 

440 PRINT "280 x8= ";x8;":x9= ";x9;":y8= ";y8 
":y9= ";y9;":goto 450" 

445 : 

450 mx = (i9 — i8) / (x9-x8) 

460 my = (j9-j8) / (y9-y8) 

465 : 

470 FOR k=0 TO 639: h8% (k) = j9: NEXT 
480 : 

490 REM- berechnen und zeichnen von w=w(u,v) 
500 MODE 2:BORDER 2:INK 0,2:INK 1,24 

504 ti=TIME 

505 : 

510 FOR v=v8 TO v9 STEP (v9-v8)/nv 
520 : hx = v*s2 - x8: hy = v*c2 - y8: i=-l 
540 : FOR u=u8 TO u9 STEP (u9-u8)/nu 
545 : 

550 : GOSUB 160: REM w=w(u,v) berechnen 
560 : i2% = i8 + mx* (hx-u*sl) 

570 : j2% = j8 + my* (hy+u*cl+w) 

580 : IF i2%<i8 THEN i2%=i8 
585 : IF i2%>i9 THEN i2%=i9 
590 : IF j 2%< j 8 THEN j2%=j8 
595 : IF j2%>j9 THEN j2%=j9 

600 REM-Horizont h8% () , h9% () besetzen 

605 :: h=0: p=0 

610 :: IF il%Oi2% THEN h= (j 2%-j 1%) / (i 2%-i 1%) 
612 : 

615 :: IF jl%<h9%(il%) OR j2%<h9%(i2%) 

THEN 625 

620 :: FOR k = il% TO i2%: 

h9%(k) = jl% + h* (k-i 1%) : NEXT: p=l 


124 






622 : 

625 :: IF jl%>h8%(il%) OR j 2%>h8% (i 2%) 

THEN 645 

630 :: FOR k=il% TO i2%: 

h8% (k) = jl% + h* (k-il%) : NEXT: p=2 

635 : 

640 REM- sichtbare Linien zeichnen - 

645 :: i=i+l: IF p=0 THEN 670 
650 :: IF u<>u8 THEN 

MOVE il%, j1%: DRAW i2%, j 2%, 1 
660 :: IF p% (i) THEN 

MOVE i 2 %, j 2 % : DRAW i2% (i) , j 2% (i) , 1 
670 :: i2% (i) = i2%: j 2% (i) = j2% 

680 :: il% = i 2%: jl% = j2%: p%(i) = p 
690 : 

700 : NEXT u 
710 NEXT v 
910 : 

920 PRINT "Zeichenzeit ="; (TIME-ti)/18000; 

" min" 

930 a$=INKEY$: IF a$="" THEN 930 


Das angegebene Programm kann auch zum Zeichnen von zusammengesetzten Funktionen 
verwendet werden. Diese Funktionen w = w(u,v) sind in dem Unterprogramm ab der Zei¬ 
le 160 zu definieren. Geben wir zum Beispiel 

170 w = (1+SIN(u)) ★ (1+SINCv)) 

175 IF w>1.8 AND v<1 AND ABS(u)<3 THEN w = 1.8 
180 RETURN 

ein, so erhalten wir mit der Zeile 

210 u8 =-5: u9 = 5: v8 =-5: v9 = 5: nu =40: nv =40 

die Grafik 66. 

Wir wollen nun mit dem gleichen Programm die Oberfläche einer Figur zeichnen lassen, die 
sich durch 2 kreuzende Zylinder ergibt, die Zylinderachsen liegen in u- bzw. v-Richtung. Die 
Zylinderradien seien rl=6,r2=5. Gemäß der kartesischen Kreisgleichung ist für ein kon¬ 
stantes v die Höhe hl über der u,v-Ebene durch 

hl = SQR(r1*r1 - u*u) 

gegeben. Entsprechend gilt 

h2 = SQR(r2*r2 - v*v). 
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Grafik 66: 3D-Darstellung einer „abgeschnittenen“ Funktion 



Grafik 67: Zwei geschnittene Halbzylinder 


Da wir den Aufriß darstellen wollen, nehmen wir für w den größeren der beiden Werte 
hl,h2. Für das Unterprogramm zur Berechnung von w ergibt sich somit 

160 REM- Unterprogramm für w = w(u,v) — 

162 w = 0: hl = 0: h2 = 0 

166 IF ABS(u)<=6 THEN hl = SQRC36 - u*u) 

168 IF ABS(v)<=5 THEN h2 = SQR(25 - v*v) 

172 IF h1>w THEN w = hl 
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176 IF h2>w THEN w = h2 
180 RETURN. 

Die Grafik entstand mit der Zeile 

210 u8 =-10: u9 =10: v8 =-10: v9 =10: nu =40: nv =40. 

Weiterhin wurde die Figur durch wl = 260° (s. Zeile 230) etwas gedreht. Ohne Min-Max- 
Berechnung benötigt das Programm 6 Minuten zum Zeichnen der Grafik 67. Der Zeitbe¬ 
darf hängt wesentlich von der gewählten engmaschigen Einteilung (nu=40) ab. 

15.5 Niveaulinien 

Niveaulinien werden in unterschiedlichen Disziplinen zur Kennzeichnung von Höhenunter¬ 
schieden verwendet. In der Geodäsie verwendet man Niveaulinien zum Markieren der Ge¬ 
ländehöhen. Kegelförmige Berge ergeben ellipsenförmige Höhenlinien. Würde man im Ge¬ 
lände auf einer solchen Niveaulinie entlanggehen, so würde man keinen Höhenunterschied 
bemerken. 

Liegen auf einer Landkarte die Höhen¬ 
linien dicht beieinander, ist ein steiler Ge¬ 
ländeanstieg vorhanden. Weit auseinan¬ 
derliegende Niveaulinien deuten auf ein 
ebenes Gelände hin. Die Richtung des steil¬ 
sten Geländeanstieges nennt man auch 
Gradientenrichtung. Die Niveaulinien sind 
immer senkrecht zum Gradienten. In der 
Physik (Vektoranalysis) werden Niveauli¬ 
nien zur grafischen Darstellung von skala¬ 
ren Ortsfunktionen (Potentiale) verwen¬ 
det. 

Wir wollen im folgenden die gegebene 
Funktion w=w(u,v) mit Hilfe von Höhen 
linien grafisch darstellen. Der Funktion w=w(u,v) entspricht eine Fläche über der u,v-Ebe- 



Ab. 23: Rechteckiges Grundgebiet zur Berech¬ 
nung der Stützhöhen 


Die gesuchte grafische Niveaulinien-Darstellung entspricht der Projektion aller gleichen 
Höhen in die u,v-Ebene. Zum Entwickeln eines Programmes, das diese Niveaulinien zeich¬ 
net, betrachten wir zunächst ein rechteckiges Grundgebiet, in dem die Höhenlinien gezeich¬ 
net werden sollen. 

Dieses Grundgebiet liegt in der u,v-Ebene (s. Abb. 23) und wird begrenzt durch 
u8, u9, v8, v9. Alle u-Werte liegen zwischen u8 und u9 und alle v-Werte zwischen v8 und v9. 
In den Programmzeilen 880—910 werden die Stützhöhen für die erste u-Reihe (v=v8; s. 
Abb. 28) von u=u8 bis u=u9 mit der Schrittweite du berechnet. Diese Höhen werden in 
dem Feld hl() gespeichert. Die Höhen der nächsten u-Reihe (v=v8+dv) werden berechnet 
(Zeilen 950—970) und in dem Feld h2() gespeichert. 


127 



w-Achse 


Wir betrachten nun die Abb. 24. Die Ent¬ 
fernung vom Punkt A bis Punkt B ent¬ 
spricht du und die Entfernung von B nach C 
dem Wert dv. Hierbei entspricht du (Zei¬ 
le 510) einer Unterteilung des u8, u9-Be- 
reiches. Die vier Stützhöhen hl(i), 
hl(i+l), h2(i), h2(i+l) in den Ecken 
eines kleinen du,dv-Grundgebietes seien 
berechnet und somit bekannt. Die obere 
Begrenzungsfläche entspricht näherungs¬ 
weise einer Ebene. Die zu zeichnende Linie 
liegt in der u,v-Ebene und ist in der Abb. 24 
strichpunktiert gezeichnet. Wir ermitteln 
nun die Koordinaten der Punkte PO und Pk. 



Abb. 24: Ermittlung von P0,Pk für die strich¬ 
punktierte Niveaulinie mit der Höhe h 


Sind diese Punkte bekannt, so kann die strichpunktierte Gerade gezeichnet werden. Be¬ 
trachten wir die senkrechte Ebene über der Strecke A—B (s. Abb. 24), so ergibt sich mit dem 
Strahlensatz oder der Parameterdarstellung der Geraden 1 der Punkt PO gemäß: 


t = (h-hl(i))/(h1(i+1)-h1(i)) 
uO = ul + t*(u-u1) 
vO = vl 


Der Punkt PO liegt nur dann zwischen A und B, wenn der t-Wert zwischen 0 und 1 liegt. 

Betrachten wir die senkrechte Ebene über der Strecke B—C, so ergibt sich der Punkt 
Pk(uk,vk) gemäß: 

t = (h-hl(i+1))/(h2(i+1)-h1(i+1)) 
uk = u 

vk = vl + t*(v-v1). 


Der Punkt Pk liegt zwischen B und C, wenn t zwischen 0 und 1 liegt. 

In ähnlicher Weise können wir alle 4 senkrechten Bezugsflächen des du,dv-Grundgebietes 
betrachten. Zu einer vorgegebenen Höhe h gibt es bei einer geneigten Ebene über dem 
du,dv-Grundgebiet gewöhnlich zwei Schnittpunkte mit den senkrechten Begrenzungsflä¬ 
chen. In den Zeilen 1070 bis 1140 werden diese beiden Schnittpunkte für die Höhe h ermit¬ 
telt, und nach der Umrechnung für die Bildschirmkoordinaten (Zeilen 1160—1190) wird die 
Höhenlinie gezeichnet. 

In dem du,dv-Grundgebiet werden jeweils alle Niveaulinien (Geraden) gezeichnet (Zeile 
1020). Das du,dv-Gebiet wird in u-Richtung (von links nach rechts) durchgeschoben (Zeile 
1010). Die bereits errechneten Höhen h2() werden in das Feld hl() umgespeichert (Zeilen 
1260—1280), und der v-Wert wird erhöht (Zeile 930). 
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Die Grafik 68 erhalten wir, wenn wir in der Zeile 230 die Funktion 
230 w = u*(u+v) + v*(v+1) 

eingeben. Beim Programmlauf verwenden wir die voreingestellten Werte (Zeile 300). Die 
vielen PRINT-Anweisungen erklären dem Anwender die notwendigen Programmeinga¬ 
ben. 

100 REM- 

105 REM- Zeichnen von Hoehen-schicht-linien - 
110 REM- fuer die Funktion w = w(u,v) 

115 REM- 

125 : 

130 MODE 2:PRINT 

140 PRINT" Bitte geben Sie die Funktion ein." 

150 PRINT" Der Programmlauf wird dann mit" 

160 PRINT:PRINT" run 300 <enter> " 

170 PRINT 

180 PRINT" fortgesetzt." 

190 PRINT:PRINT 
200 LIST 220-240 
210 : 

220 REM- Unterprog. fuer w=w(u,v) - 

230 w = u* (u+v) + v* (v-i-1) 

240 RETURN 
250 : 
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1.2 


300 uS =-0.9: u9 = 1: v8 = -0.9: v9 = 

310 nu = 20: nv = 30: nw = 20 
320 i8 =0.5: 19 =639.5: j8= 0.5: j9 =399.5 
330 PRINT" Min u-Wert u min = ";u8 

340 PRINT" Max u-Wert u max = ";u9 

350 PRINT" Anz.von u-Intervall = ";nu 
360 PRINT" Min v-Wert v min = ";v8 

370 PRINT" Max v-Wert v max = ";v9 

380 PRINT" Anz.von v-Intervall = ";nv 

390 PRINT 

400 INPUT"Vorbesetzte Werte aendern ";a$ 
410 IF LOWER$ (a$)<>"j" THEN 510 
420 : 

430 PRINT:PRINT 


440 

INPUT" 

Min 

u-Wert 

u min 

= 

ff 

; u8 

450 

INPUT" 

Max 

u-Wert 

u max 

= 

ff 

; u9 

460 

INPUT" 

Anz , 

,von u-Intervall 

= 

ft 

; nu 

470 

INPUT" 

Min 

v-Wert 

v min 

= 

»t 

; v8 

480 

INPUT" 

Max 

v-Wert 

v max 

- 

ff 

; v9 

490 

INPUT" 

Anz , 

.von v-Intervall 

= 

ff 

; nv 


500 : 

510 du = (u9-u8)/nu: dv = (v9-v8)/nv 
520 : 

530 PRINT:PRINT 
540 PRINT: 

PRINT"Berechnen der Extremwerte w min, w max" 

550 PRINT:PRINT 

560 w8=9E+09: w9=-9E+09 

570 : 

580 FOR v=v8 TO v9 STEP dv*2 

590 : FOR u=u8 TO u9 STEP du*2 

600 : GOSUB 220 

610 : IF w>w9 THEN w9=w 

620 : IF w<w8 THEN w8=w 

630 : NEXT u 

640 NEXT v 

650 : 

660 PRINT" Min Hoehe w min = ";w8 
670 PRINT" Max Hoehe w max = ";w9 
680 PRINT" Anzahl der Niveaus = " ; nw 

690 PRINT 
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700 INPUT"Vorbesetzte Werte aendern ";a$ 

710 IF LOWER$(a$)<>"j" THEN 770 
720 : 

730 PRINT:PRINT 

740 INPUT" Min Hoehe w min = ";w8 
750 INPUT" Max Hoehe w max = ";w9 
760 INPUT" Anzahl der Niveaus = " ; nw 

770 DIM hl (nu) , h2 (nu) 

780 : 

790 dw = (w9-w8)/nw 
800 mx = (i9-i8) / (u9-u8) 

810 my = (j9 —j8) / (v9-v8) 

820 : 

830 REM- Zeichnen der Hoehen-schicht-linien - 
840 BORDER 3:INK 0,3:INK 1,24:CLG 0 
850 MOVE 0,0:DRAW 639,0, 1:DRAW 639,399, 1 
860 DRAW 0,399, 1:DRAW 0,0, 1: tt = TIME 

870 : 

880 : v = v8: k = -1 

890 : FOR u=u8 TO u9+du/2 STEP du 

900 : GOSUB 220: k=k+l: hl (k) = w 

910 : NEXT u 

920 : 

930 FOR v=v8+dv TO v9+dv/2 STEP dv: k = -1 
940 : 

950 : FOR u=u8 TO u9+du/2 STEP du 

960 : GOSUB 220: k=k + l: h2 (k) = w 

970 : NEXT u 

980 : 

990 : vl = v - dv 
1000 : 

1010 : FOR i=0 TO nu-1: ul=u8+i*du: u=ul+du 
1020 : FOR h=w8 TO w9 STEP dw: k = -1 

1030 : 

1040 : IF hl (i) <h AND hl(i+l)<h AND h2(i)<h 

AND h2 (i + 1)<h THEN 1220 
1050 : IF hl (i)>h AND hl(i + 1)>h AND h2 (i)>h 

AND h2 (i + 1)>h THEN 1220 

1060 : 

1070 : t=h2 (i + 1)-hl(i + 1) :IF t = 0 THEN 1090 
1080 : t= (h-hl(i + 1))/t: IF t> = 0 AND t< = l 

THEN k=k+l: v (k)=vl + t* (v-vl) : u (k)=u 
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1090 

1100 

1110 

1120 

1130 

1140 

1150 

1160 

1170 

1180 

1190 

1200 

1210 

1220 

1230 

1240 

1250 

1260 

1270 

1280 

1290 

1300 

1310 

1315 

1320 

1330 


: t=h2 (i + 1)-h2(i) : IF t = 0 THEN 1110 

: t = (h-h2 (i) )/t: IF t> = 0 AND t< = l 

THEN k=k+l: u(k)=ul+t*(u-ul) : v (k)=v 
: t=h2 (i) - hl (i) : IF t = 0 THEN 1130 

: t= (h-hl (i))/t: IF t> = 0 AND t<=l 

THEN k = k + l : v (k) =vl + t * (v-vl) : u (k) =ul 
: t=hl (i + 1) -hl(i) : IF t = 0 THEN 1150 

: t= (h-hl(i) ) /t: IF t> = 0 AND t< = l 

THEN k = k + l: u(k)=ul + t* (u-ul) : v (k)=vl 
: IF kOl THEN 1220 

: il% = i8 + mx*(u(0)-u8) 

: jl% = j8 + my* (v (0)-v8) 

: i 2% = i 8 + mx* (u (1) -u8) 

: j2% = j8 + my* (v (1) -v8) 

: MOVE i1% » j1%: DRAW 12%,j 2%, 1 

: NEXT h 

: NEXT i 

: FOR k=0 TO nu 

: hl (k) = h2 (k) 

: NEXT k 

NEXT v 

LOCATE 1,1 

PRINT " Zeit = "; (TIME-tt)/18000 ; " min" 
a$=INKEY$: IF a$ = "" THEN 1330 


Eine andere Methode zum Darstellen von Punkten mit gleicher Höhe soll nun erläutert wer¬ 
den. Wir gehen davon aus, daß die Funktion z=z(x,y) gegeben ist. In der Zeile 720 wird z. B. 
die Funktion 


z = x*(x+y) + y*(y+1) 

verwendet. Natürlich ist die beschriebene Methode auf jede andere Funktion z=z(x,y) über¬ 
tragbar. Wir wollen die Grafik farbig gestalten. Deshalb wird durch den MODE-Befehl in 
Zeile 610 der Normalbildschirm eingeschaltet und danach die Rahmenfarbe Hellblau (2) 
aktiviert. In diesem Standard-Bildschirmmodus ist es möglich, vier der 27 verschiedenen 
Farben gleichzeitig darzustellen. Diese vier Farben werden in der Zeile 615 den Farbstiften 
0 bis 3 zugeordnet. Es sind dies die Farben Blau, Weiß, Gelb und Grün. Durch die Zeilen 
620,625 wird dann ein weißer Bildrahmen gezeichnet. In der Zeile 630 hinterlegen wir die 
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x-Grenzen (x8,x9) und die y-Grenzen (y8,y9) für die zu zeichnende Funktion z=(x,y), die in 
der Zeile 720 eingegeben wird. Die Werte z8,z9 in der Zeile 640 stellen die minimalen und 
maximalen z-Werte der gegebenen Funktion z=z(x,y) dar, für die Höhenschichten zu zeich¬ 
nen sind. Die Anzahl nz der Höhenschichten ist in Zeile 645 hinterlegt. 

600 REM- farbige Hoehenschichten - 

610 MODE 1:BORDER 2 

615 INK Oil:INK 1,26:INK 2,12:INK 3,22 
620 MOVE 0,0: DRAU 639,0, 1:DRAW 639,399, 1 
625 DRAW 0,399, 1:DRAW 0,0, 1 
627 : 


630 

x8 

= 

-2: x9 = 2: y8 = -2: 

y9 = 2 

640 

z8 

= 

-1: z9 = 13 


645 

nz 

= 

30 


647 

650 

bi 

_ 

2: i8 = 2: i9 =637 


655 

bj 

= 

2: j 8 = 2: j9 =397 


660 

bz 

= 

(z9-z8)/nz: z6=9E+09: 

z7=-9E+09 

665 

mx 

= 

(i9-i8) / (x9-x8) 


670 

my 

= 

(j9-j8) / (y9-y8) 



675 : 

680 FOR j=j8 TO j9 STEP bj 
690 : y = y8 + (j-j8)/my 
700 : FOR i=i8 TO i9 STEP bi 
710 : x = x8 + (i-i8)/mx 

720 : z = x* (x+y) +y* (y+1) 

740 : REM- p = (z-z8)/bz MOD 4 

750 : p = (z-z8) /bz MOD 2 

760 : PLOT i,j, p 

770 : IF z>z7 THEN z7=z 

780 : IF z< z6 THEN z6 = z 

790 : NEXT i 

800 NEXT j 
810 : 

860 a$=INKEY$: IF a$ = "" THEN 860 
865 : 

890 PRINT: PRINT: PRINT 

900 PRINT " Die extremen Hoehen sind:" 

910 PRINT " 630 z8 ="; z6;": z9 ="; z7 

In den Zeilen 650,655 werden die Grenzen i8,i9,j8,j9 für die Bildschirmpixels hinterlegt. 
Die Werte bi bzw. bj legen die Schrittweite in Bildschirmpixels in x- bzw. y-Richtung fest. 
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Zum Testen des Programmes sollte bi,bj nicht zu klein gewählt werden (z. B. bi=10,bj=TO). 
Für die endgültige Erstellung der Zeichnung wählen wir bi=2,bj=2, da im normalauflösen- 
den Bildschirmmodus in x- und y-Richtung jeweils zwei benachbarte Pixel zu einem zusam¬ 
mengefaßt werden. Eine Schrittweite von 2 Bildschirmpixels ist also völlig ausreichend. In 
den Zeilen 665,670 werden die Maßstabsfaktoren mx,my ermittelt. Der Wert bz (Zei¬ 
le 660) entspricht der Dicke einer z-Schicht. Ist bi=2 und bj=2, so werden durch die beiden 
Schleifen (Zeilen 680,700) alle Bildschirmpixels von „links nach rechts“ und von „unten 
nach oben“ durchlaufen. 

Im Kapitel 3.1 werden die Skalengleichungen 

i = i8 + mx*(x-x8) 
j = j8 + my*(y-y8) 

zur Umrechnung von x,y-Werten in Bildschirmpixels i,j abgeleitet. Weil die Bildschirmwerte 
i,j durch die Schleifen 680,700 vorgegeben sind, stellen wir diese Gleichungen nach x,y um. 
Die Berechnung der zu i,j gehörenden x,y-Werte erfolgt in den Zeilen 690,710. Mit diesen 
x,y-Werten wird nun der Funktionswert z=z(x,y) berechnet (Zeile 720). Durch den Befehl 
PLOT i,j, 1 kann ein Pixel gesetzt und durch PLOT i,j, 0 gelöscht werden. 



Grafik 69: Farbige Darstellung der Höhenschichten einer Funktion z=z(x,y) 


Der Befehl w MOD 2 liefert lediglich die Werte 0 oder 1 für positive w-Werte. Durch die Zei¬ 
le 740 ermitteln wir den Wert p=0,l,2 oder 3 und verwenden diesen Wert als Farbstift. Hier¬ 
bei entspricht p=0 wegen INK 0,1 der Farbe Blau und p=l,2,3 wegen INK 1,26:INK 
2,12:INK 3,22 den Farben Weiß, Gelb, Grün. Soll lediglich eine zweifarbige Grafik erstellt 
werden, so ist die Zeile 740 zu neutralisieren und die Zeile 750 zu aktivieren. Statt 

750 p = (z-z8)/bz MOD 2 
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kann auch 


750 p = (z-z8)/bz AND 1 

verwendet werden. Wir erhalten dann die Grafik 69. Die Erstellung dieser Grafik (mit 
bi=2,bj=2) benötigt 31 Minuten. Deshalb sollte beim Testen mit größeren bi,bj-Werten ge¬ 
arbeitet werden. 
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16. Ausgewählte Anwendungen 


16.1 Simulationen 

Für die Beschreibung von komplexen physikalisch-technischen Vorgängen ist gewöhnlich 
ein mathematisches Modell erforderlich, das die wesentlichen Einflußparameter berück¬ 
sichtigt. In vielen Fällen ist man auf die Simulation von realen Systemen angewiesen, weil 
die Experimente am Orginalsystem wegen zu hoher Kosten, zu großem Sicherheitsrisiko 
oder zu großem Zeitbedarf nicht durchführbar sind. Einfache Beispiele für solche Simula¬ 
tionen sind: 


— Ballistik einer Gewehrkugel 
— Wurf mit Luftwiderstand 
— e/m Bestimmung nach Busch 
— Elektron im Strahlungsgürtel der Erde 
— Compton-Versuch 
— Radioaktiver Zerfall 
— Verkehrsstau 

— Entladen eines Kondensators 
— Einschwingvorgänge u. a. 

Die mathematische Beschreibung des gewählten Modelles geschieht in vielen Fällen mit 
Hilfe von Differentialen. Die geschlossene Lösung von schwierigen Differentialgleichungen 
ist vielleicht unübersichtlich oder nicht auffindbar. Deshalb wird zur numerischen Lösung 
von Differentialgleichungen der Computer eingesetzt. Zur Vermeidung von unübersicht¬ 
lichen Zahlenkolonnen bietet sich die grafische Darstellung der numerischen Lösung an. 
Als Beispiel wollen wir die Differentialgleichungen 

dx/dt = f(t,x,y) 
dy/dt = g(t,x,y) 


behandeln. 

Die vorgegebenen Funktionen f,g hängen von t,x,y ab. 

Es sei P0(x0,y0) ein vorgegebener Punkt in der x,y-Ebene und tO der zu PO gehörende Para¬ 
meter, der in der Physik vielfach der Zeit entspricht. Z. B. kann durch die Differentialglei¬ 
chungen 

dx/dt = vO * COS(wO) 
dy/dt = vO * SIN(wO) - g * t 

der schiefe Wurf (ohne Luftreibung) beschrieben werden. Die Abschußgeschwindigkeit vO 
und der Abschußwinkel wO ist im Punkte P0(x0,y0) zum Zeitpunkt tO bekannt. Zur Simula¬ 
tion sind diese Differentialgleichungen numerisch zu lösen. Wir verwenden hierzu das fol¬ 
gende Halbschrittverfahren (Extrapolationsmethode). 
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Die Schrittweite sei dt. Für t = tO 4- dt/2 werden die Ableitungen dx/dt = xt,dy/dt = yt be¬ 
rechnet. Mit diesen Ableitungswerten berechnen wir den Punkt Pl(xl,y 1) gemäß xl = xO + 
dt*xt, yO + dt»yt. Nun bilden wir t = tO + 3*dt/2 und berechnen die neuen Ableitungen 
xt,yt,yl =. Wirerhalten P2(x2, y2) gemäß x2 = xl + dt*xt,y2 = yl +dt*yt. In gleicher Wei¬ 
se fahren wir fort. Wir verwenden jeweils die Ableitungen zwischen 2 aufeinanderfolgenden 
Punkten. In den Programmzeilen 600 bis 630 werden diese Schritte fortlaufend ausgeführt. 
Das wiedergegebene Programm kann für viele Anwendungen eingesetzt werden und wird 
im folgenden beschrieben. 

100 REM !-! 

110 REM ! grafische Darstellung der Loesung ! 

120 REM ! von Differential-Gleichungen ! 

130 REM !-! 

140 REM- Unterprogramm fuer die Ableitungen - 
150 REM- xt = f(t,x,y) (xt entspricht dx/dt)- 
160 REM- yt = g(t,x,y) (yt entspricht dy/dt)- 
17 0: 

180 wO = 15 : vO = 28 : GOTO 230 
190 xt = vO*COS (wO) 

200 yt = v0*SIN (wO) - 9.81* (t-tO) 

210 RETURN 
220 : 

230 tO = 0: t9 = 5: dt = 0.1: k = 0 

240 xO =10: yO =10: xt = 0: yt = 0 

250 x8 = 0 : x9 = 100: y8 = 0: y9 = 50 

260 : 

270 i8 = 7.5: i9 =632.5: j8 = 7.5: j9 =312.5 
280 mx = (i9-i8)/ (x9-x8) : iO = i8+mx* (x0-x8) 

290 my = (j9-j8) / (y9-y8) : jO = j8+my* (y0-y8) 

300 : 

310 WINDOW #0,1.80,1.5 
320 CLS #0 

330 INPUT" vorbesetzte Werte aendern (j/n) ";a$ 

340 IF LOWER$ (a$)="j" THEN LOCATE 50,3: 
PRINT"weiter mit run 350 <ENTER>": 

LOCATE 1,1: LIST 230-250,#0 
350 : 

360 INPUT" alte Grafik loeschen (j/n) ";a$ 

370 IF LOWER$ (a$)<>"j" THEN 570 
380 : 

390 MODE 2:BORDER 2:INK 0,1:INK 1,26 
400 WINDOW #0,1,80,1,5 
410 ORIGIN 0,0,0,639,319,0 
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420 : 

430 MOVE 0,0: DRAM 639,0,1: DRAW 639,319,1 
440 DRAW 0,319,1: DRAW 0,0,1 
450 : 

460 MOVE 10,j0 + 12: DRAW i0 + 12,j0 + 6, 1 
470 DRAW i0 + 12,j 0-6, 1: DRAW i0,j0-12, 1 
480 DRAW 10-12,j0 — 6, 1: DRAW 10-12,jO + 6, 1 
490 DRAW i0,j 0 + 12, 1 
500 : 

510 FOR i=i8 TO i9 STEP (i9-i8)/10 
520 MOVE i,j 8: DRAW 1 , j 9,1: NEXT i 
530 FOR j = j8 TO j9 STEP (j9-j8)/10 
540 MOVE i8, j: DRAW i9,j,l: NEXT j 
550 : 

560 REM- Halbschritt-Verfahren - 

570 DEG 

580 x=x0: y=y0: t=t0 + dt/2: GOSUB 190: k = 0 

590 WHILE t<=t9 

600 : GOSUB 190 

610 : t = t + dt 

620 : x = x + xt*dt 

630 : y = y + yt*dt 

640 : IF x<x8 THEN x = x8 

650 : IF x>x9 THEN x=x9 

660 : IF y<y8 THEN y=y8 

670 : IF y>y9 THEN y=y9 

680 : i% = i8 + mx * (x-x8) 

690 : j% = j8 + my * (y-y8) 

700 : MOVE i0, jO: DRAW i%, j%, 1 

710 : REM- MOVE iO, jO: 

DRAW (i0 + i%)/2, (j 0 + j%) /2 , 1 

720 : REM- PLOT i%, j%, 1 

730 : k = k+1 

740 : IF k MOD 10 = 0 THEN MOVE i%-6, j%: 

DRAW i%, j%+6, 1: DRAW i%+6, j%, 1: 

DRAW i%, j%-6, 1: DRAW i%-6, j%, 1 

750 : iO = i%: jO = j% 

760 WEND 
765 RAD 
770 : 

775 a$=INKEY$: IF a$ = "" THEN 775 
777 CLS #0 
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780 LOCATE 50,3:PRINT"weiter mit run <ENTER>" 

790 LOCATE 1,1: LIST 180-200,#0 

Die beiden Differentialgleichungen sind in dem Unterprogramm 190—210 einzugeben. Als 
Programmvariable für dx/dt ist xt und für dy/dt ist yt zu verwenden. Die im Unterpro¬ 
gramm verwendeten Werte vO (Anfangsgeschwindigkeit) und wO (Steigungswinkel) sind 
am Programmbeginn zu besetzen (Zeile 180). Weil wir die Wurfparabel von t0=0 Sekunden 
bis t9=5 Sekunden verfolgen wollen, geben wir diese Werte in der Zeile 230 ein. Der Wert 
dt entspricht der Schrittweite. Als Abschußpunkt wählen wir x0=10m,y0=10m (Zei¬ 
le 240). 

Da wir mehrere Wurfparabeln in ein Bild zeichnen wollen, arbeitet das Programm mit Fen¬ 
stern. In Zeile 310 wird ein Textfenster eingerichtet, in dem die Ein- und Ausgabe von Pro¬ 
grammtext stattfindet. Auch die Meldungen des Rechners werden in diesem Fenster ausge¬ 
geben, das mit #0 angesprochen wird. Dadurch bleibt die Grafik unversehrt. Das Fenster, in 
das die Grafik gezeichnet werden soll, wird durch die Zeile 410 eingeschaltet. Von nun an 
beziehet? sich alle Grafikbefehle auf dieses Grafikfenster. Unser Bild soll die x-Werte von 0 
bis 100m und die y-Werte von 0 bis 50m enthalten (Zeile 250). Nachdem die Maßstäbe 
mx,my und der Bildpixel (iOjO) des Punktes P0(x0,y0) in den Zeilen 280,290 berechnet 
sind, wird die alte Grafik gelöscht (Zeilen 390—410) und der Abschußpunkt PO durch ein 
Sechseck markiert (Zeilen 460—490). Die Zeilen 510 bis 540 zeichnen ein Gitternetz, mit 
dessen Hilfe die Bahnpunkte maßstäblich entnommen werden können. Durch die Zeilen 
620,630 wird ein neuer Bahnpunkt ermittelt, der durch die Zeilen 680,690 in die Bildpixels 
umgerechnet wird. Die Zeile 700 zeichnet eine Linie vom „alten“ zum „neuen“ Kurven¬ 
punkt. 

Will man die Kurve gestrichelt zeichnen, so ist die Zeile 700 zu neutralisieren (hinter die 
Zeilennummer 700 ein „REM“ einzufügen) und die Zeile 710 zu aktivieren. Kurven kön¬ 
nen auch punktiert dargestellt werden, wenn die Zeilen 700,710 neutralisiert und 720 akti¬ 
viert wird. Durch die Zeile 740 wird jeder 10. Kurvenpunkt durch ein kleines Quadrat ge¬ 
kennzeichnet. Weil wir für dt=0.1 Sekunden gewählt haben, kennzeichnet ein solches Qua¬ 
drat den Ort des Körpers im Sekundenabstand. Wir erhalten die Grafik 70, wenn wir das 
Programm starten (RUN) und nach der Erstellung der ersten Bahnkurve (wO = 15°) eine Ta¬ 
ste drücken (Zeile 775). 

Nun wird der Programmanfang gelistet (Zeile 790). Wir geben in der Zeile 180 für wO statt 
15 die Zahl 30 ein. Wir starten (RUN) und zeichnen die Wurfparabel mit dem Abschußwin¬ 
kel von 30° in die gleiche Grafik, bei sonst unverändeten Werten. Auf diese Weise erhalten 
wir für die Abschußgeschwindigkeit von vO = 28 m/s und den Abschußwinkeln von 15°, 30°, 
45°, 60°, 75° die Wurfparabeln der Grafik 70. In gleicher Weise können natürlich auch ande¬ 
re Werte (Abschußgeschwindigkeit, Erdbeschleunigung) variiert werden. 

Natürlich spielt auch die Luftreibung eine Rolle. Ist m die Masse und v die momentane Ge¬ 
schwindigkeit des Wurfkörpers, so sei die Luftreibung durch die Kraft 

F = m * c * v*v 


139 



Grafik 70: Wurfparabeln mit verschiedenen Abschußwinkeln 


gegeben. Diese Kraft ist stets entgegengesetzt zur Geschwindigkeit v gerichtet. Der Wert für 
c hängt von vielen Faktoren ab (Form des Körpers, Luftdruck, Lufttemperatur). Wir erset¬ 
zen nun die Differentialgleichungen für den reibungsfreien Wurf (Unterprogramm 
190-210) durch 

190 c = 0.1: a = c * (xt*xt + yt*yt) 

195 xt = v0*C0S(w0) - a*dt*SGN(xt) 

200 yt = v0*SIN(w0) - a*dt*SGN(yt) - 9.81*(t-t0) 

und erhalten die Grafik 71. 

Die durchgezogenen Kurven entsprechen dem Luftwiderstandbeiwert c = 0.1 und die ge¬ 
strichelten Linien dem Wert c = 0.05. Die Anfangsgeschwindigkeit ist vO = 28m/s, und die 
Abschußwinkel betragen 15°, 30°, 45°, 60°, 75°. 



Grafik 71: Simulation von Würfen mit unterschiedlichem Luftwiderstand 
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Wir wollen nun ein modernes Verfahren nach GRAGG-STOER anfügen, das die Differen¬ 
tialgleichungen 


dx/dt = f(t,x,y) 
dy/dt = g(t,x,y) 

numerisch integriert. Die auf der Mittelpunktsregel beruhende GRAGG-Funktion erlaubt 
die Anwendung des Extrapolationsverfahrens nach STOER oder ROMBERG. Die Diffe¬ 
renz extrapolierter Werte kann zur Fehlerabschätzung herangezogen werden. In der Zei¬ 
le 260 wird die Fehlerschranke ee vorgegeben. Nach STOER-BULIRSCH: „Einführung in 
die Numerische Mathematik II, Springer Verlag“ ist das Extrapolationsverfahren die zur 
Zeit effektivste Methode zur Integration einer Differentialgleichung. Die Variablenbezeich¬ 
nungen sind ähnlich denen im bereits beschriebenen Programm zum Halbschrittverfahren. 

100 REM !-! 

110 REM ! grafische Darstellung der Loesung ! 

120 REM ! von Differential-Gleichungen ! 

130 REM !-! 

140 GOTO 230 

150 REM- Unterprogramm fuer die Ableitungen - 
160 REM- xt = f(tiX,y) (xt entspricht dx/dt)- 
170 REM- yt = g(t,x,y) (yt entspricht dy/dt)- 
180 : 

190 xt =20 + 0.2*y 

200 yt =20 - 9.81 *t + 0.1*x 

210 RETURN 

220 : 


230 

REM 

- Extr 

apolationsve 

rf . 

nach GRAGG 

-STOER 

240 

DIM 

xk (8) 

, xx (8) , yk (8) , 

yy (8) 



250 

to 

= 0: t9 = 4: x0=0: 

yo= 

10 



260 

nn= 

10: dt 

=(t9-t0)/nn: 

ee 

= 0.01 



270 

x8 

=-5 : 

x9 = 95 : 

y8 

= 0: 

y9 

= 50 

280 

: 







290 

i 8 

= 0.5: 

i9 = 639.5: 

j 8 

= 0.5: 

j 9 

= 319.5 

300 

mx 

= (19- 

i8) / (x9-x8) : 

iO 

= i8 + 

mx* 

(x0-x8) 

310 

my 

= (j 9- 

j8) / (y9-y8) : 

j0 

= j8 + 

my* 

(y0-y8) 


320 : 

330 WINDOW #0,1,80,1,5 
340 CLS #0 

350 INPUT" vorbesetzte Werte aendern (j/n) ";a$ 
360 IF LOWER$(a$) ="j" THEN LOCATE 50,3: 

PRINT"weiter mit run 370 <ENTER>": 

LOCATE 1,1: LIST 250-270,#0 
365 : 
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370 INPUT" alte Grafik loeschen (j/n) ";a$ 

380 IF LOWER$ (a$)<>"j" THEN 450 
385 : 

390 MODE 2:BORDER 2:INK 0,1:INK 1,26 
400 WINDOW #0,1,80,1,5 
410 ORIGIN 0,0,i8,i9,j9 , j8 
420 : 

430 MOVE 0,0: DRAW 639,0,1: DRAW 639,319,1 
440 DRAW 0,319,1: DRAW 0,0,1 
450 : 

460 FOR t2=t0+dt TO t9 STEP dt: tl=t2 
470 : FOR k=l TO 8 

480 : n=2~k: h=(tl-t0)/n: xl=x0: yl=y0 

490 : 

500 : t=t0: x=x0: y=y0: GOSUB 150 

510 : x2=x0+h*xt: y2=y0+h*yt 

520 : 

530 : FOR i=l TO n-1 

540 : t=t0+i*h: x = x2: y=y2: GOSUB 190 

550 : x3 = xl + 2*h*xt: y3=yl + 2*h*yt 

560 : xl=x2: x2=x3: yl=y2: y2=y3 

570 : NEXT i 

580 : 

590 : t=tl: x=x2: y=y2: GOSUB 190 

600 : xk (k) = (xl+x2+h*xt)/2: 

yk (k) = (yl+y2+h*yt)/2 

610 : 

620 : REM- ROMBERG-Extrapolation - 

630 : p=l: IF k=l THEN 730 

640 : FOR j=k TO 2 STEP -1: p=4*p 

650 : xx(j) = (p*xk (j)-xk (j-1))/(p-1) 

660 : yy(j) = (p*yk (j)-yk (j-1))/(p-1) 

670 : NEXT j 

680 : 

690 : IF k=2 THEN hl=9E+09: h3=hl 

700 : h2 = xx (k) : h4=yy (k) 

710 : IF ABS(h2-hl)<ee*ABS (h2) AND 

ABS(h4-h3)<ee*ABS (h4) THEN kl=k:k=99 
720 : hl=h2: h3=h4 

730 : NEXT k 
740 : 
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750 : IF k<99 THEN 

PRINT"Genauigkeit";ee;"nicht erreicht": 
END 

760 : REM-PRINT t2; xx (kl) ; yy(kl); ee 

770 : 

780 : i% = i8 + mx * (x-x8) 

790 : j% = j8 + my * (y-y8) 

800 : IF i%<0 OR i%>639 THEN 850 

810 : IF j%<0 OR j%>319 THEN 850 

820 : MOVE i0 —8,j0: DRAW i0,j0 + 8, 1: 

DRAW i0 + 8ij0i 1: DRAW i0,j0-8, 1: 

DRAW i0-8,j 0, 1 

830 : 

840 : MOVE i0, jO: DRAW i%, j%, 1 

850 : t0=t2:x0=xx(kl):y0=yy(kl):i0=i%:j0=j% 

860 NEXT t2 
870 : 

880 a$=INKEY$: IF a$="" THEN 880 
890 CLS #0 

900 LOCATE 50,3:PRINT"weiter mit run <ENTER>" 
910 LOCATE 1,1: LIST 190-200,#0 


16.2 Differentialgleichungssysteme 

Die RUNGE-KUTTA-Formeln zur numerischen Lösung von Differentialgleichungen wur¬ 
den am Anfang dieses Jahrhunderts aufgestellt. GILL hat später die freien Parameter des 
Lösungsalgorithmus so gewählt, daß für das automatische Rechnen ein kleiner Program¬ 
mieraufwand, geringer Speicherbedarf und ein effizienter Algorithmus entstand mit einem 
Fehler 0(h 5 ). Wir verwenden eine Variante zur Lösung von Differentialgleichungssystemen 
1. Ordnung. Bei vielen Anwendungen (Prozeßrechnen, Simulationen) sind die Differen- 


tialgleichungssysteme 

n-ter Ordnung 



y0' 

= 1 




yi' 

= f1(x. 

yi. 

y2, - 

.yn) 

y2' 

= f2(x, 

yi. 

y2, . 

.yn) 

y3’ 

= f3(x. 

yi. 

y2, . 

.yn) 

yn' 

= fn(x. 

yi. 

y2, . 

■yn) 


zu lösen. Diese Differentialgleichungen entsprechen dem gewählten Modell. Hierbei ent¬ 
spricht x=y0 und yO’=l. 
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Auch lineare Differentialgleichungen n-ter Ordnung können auf dieses System von Diffe¬ 
rentialgleichungen zurückgeführt werden. Wir wollen dies an der linearen Differentialglei¬ 
chung 4. Ordnung zeigen. Aus 

yl' 111 + pl * yl 111 + p2 * yl'' + p3 * y1' + p4 * yl = f 

folgt das System 

yV = y2 
y2' = y3 
y3' = y4 

y4' = f - pl * y4 - p2 * y3 - p3 * y2 - p4 * yl 

Hierbei können pl,p2,p3,p4,f Funktionen von x=yO sein. Dieses System von Differential¬ 
gleichungen ist ein Sonderfall des allgemeinen Differentialgleichungssystems. 

Zur Lösung mit dem RUNGE-KUTTA-GILL-Algorithmus sind zunächst die Koeffizien¬ 
ten a0,al,a2,a3,b0,bl,b2,b3,c0,cl,c2,c3 (Zeilen 420 bis 440) zu besetzen und die Anfangs¬ 
werte yl,y2,.. .,yn an der Stelle x=a (Zeile 480,590 bis 610) vorzugeben. Der RUNGE- 
KUTTA-GILL-Algorithmus besteht dann aus den Zeilen 910 bis 970. Die Werte yi 
(i=l,2,.. .,n) der gesuchten Funktionen werden an den Stellen x=a+i*h ermittelt. Die 
x-Schrittweite (Zeile 500,560) ist mit h bezeichnet. 

Die qi-Werte entsprechen den Fehlern bei einem Schritt. Eine automatische Schrittweiten¬ 
steuerung ist nicht im Programm enthalten. Einen optischen Eindruck von den Fehlern er¬ 
hält man, indem man bei gleichen Anfangswerten eine Schrittweitenänderung durchführt 
und diese Kurve in die gleiche Grafik zeichnet. 


100 REM !-! 

105 REM ! Loesung eines linearen ! 

110 REM ! Differentialgleichungssytems ! 
115 REM ! nach Runge-Kutta-Gi11 ! 

120 REM !-! 

130 GOTO 230 

150 REM Unterprog. fuer das DGL-System 
170 ys (1) = y (3) : ys (2) = y (4) 

180 ys (3) = y (2) : ys (4) = y(l) 

200 RETURN 

210 x8 = -0.5: x9 = 4.5: y8 = -3: y9 = 2 
220 RETURN 
225 : 

230 WINDOW #0,1,80,1,5 
240 CLS #0 

250 PRINT"Eingeben des lin. DGL-Systems";: 
PRINT SPC (15)"y (0) entspricht x" 
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260 PRINT"wie z.b: 170 ys (1) = 1/y (2)";: 

PRINT SPC(15)"y(l) entspricht yl" 

270 PRINT" 190 ys (2) =-l/y(l)";: 

PRINT SPC(15)"y(2) entspricht y2"; 

280 PRINT” usw." 

290 PRINT SPC (25) "usw." ; : PRINT SPC(14) 

"ys(1) entspricht yl' (1.Ableitung)" 

300 PRINT"weiter: Taste druecken!";: 

PRINT SPC (19)"ys (2) entspricht y2' usw 
310 a$=INKEY$ : IF a$ = "" THEN 310 
320 : 

330 CLS #0 

340 LOCATE 50,5: 

PRINT"fortsetzen mit run 400" 

380 LOCATE 1,1: LIST 150-190,#0 
400 DIM a (3) , b (3) , c (3) , y(10), ys (10) , 

q (10) , jl%(10), j 2% (10) 

410 h=l/SQR(2): ys(0)=1 

420 b (0) =2 : b(l)=l: b(2)=l: b (3) =2 

430 a (0) =1/2: a(l)=l-h: a(2)=l+h: a(3)=l/6 
440 c (0) =1/ 2: c(l)=l-h: c(2)=l + h: c(3)=l/2 
450 GOSUB 210 

460 i8 = 0.5: i9 =639.5: j8 = 0.5: j9 =319.5 
470 INPUT" Anzahl der eingeg. Gleichungen"; 
480 PRINT" x-Anfangswert a= x8 

490 PRINT" x-Endwert b= x9 

500 PRINT" x-Schrittweite delta x= "; 
(x9-x8) /50 

510 y(0) = x8: xx = x9 : h = (xx-y(0))/50 
520 INPUT" Werte aendern ";a$ 

530 IF LOWERS (a$)<>"j" THEN 570 
540 INPUT" x-Anfangswert a= y (0) 

550 INPUT" x-Endwert b= "; x 

560 INPUT" x-Schrittweite delta x= "; 

570 : 

580 PRINT" Eingeben der Anfangsbedingungen: 
590 FOR i=l TO n 

600 : PRINT" Wie gross ist y"; i; 

" bei x = " ; y (0) ; 

610 : INPUT y(i) 

620 NEXT i 
630 : 






640 INPUT" alte Grafik loeschen (j/n) ";a$ 

650 CLS #0:IF LOWERS (a$)<>" j " THEN 770 
660 : 

680 MODE 2:BORDER 2:INK 0,1:INK 1,26 
690 WINDOW #0,1,80,1,5 
700 ORIGIN 0,0,i8,19,j9, j8 
710 : 

720 MOVE 18,38: DRAW i9-i8,j8, 1 
725 DRAW i9-i8,j9-38, 1: DRAW i8,j9-j8, 1 
730 DRAW 18,38, 1 
740 : 

750 FOR i=i8 TO i9 STEP (i9-i8)/10: 

MOVE i,j 8: DRAW i,j 9,1: NEXT 
760 FOR j = j8 TO j9 STEP (j9-j8)/10: 

MOVE i8,j: DRAW i9 , j,1: NEXT 
770 : 

780 mx = Ci9-1 8) / (x9-x8) : my= (j9-j8) / (y9-y8) 
790 il% = i8 + mx* (y (0)-x8) : 

IF il%<0 OR il%>639 THEN STOP 
800 : 

810 FOR i=l TO n 

820 : 3 1% Ci) = j8 + my*(y(i)-y8) 

830 NEXT i 
840 : 

850 REM- CLS #0 

860 REM-PRINT " x", " y(i)", " q(i)" 

870 REM-PRINT y (0) , y (1) , q (1) 

880 REM- IF n>l THEN FOR i=2 TO n: 

PRINT , y (i) , q (i) : NEXT i 

885 : 

890 IF h>0 AND y (0) >=xx THEN 1160 
900 IF h< 0 AND y(0)< = xx THEN 1160 
905 : 

910 FOR j = 0 TO 3: GOSUB 170 
920 : FOR i=0 TO n 

930 : hl = a (j) * (ys (i) - b(j)*q(i)) 

940 : y(i) = y(i) + h*hl 

950 : q (i) = q(i) + 3*hl - c(j)*ys(i) 

960 : NEXT i 

970 NEXT j 

980 : 

990 i2% = i8 + mx * (y(0)-x8) 
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1000 IF i 2 %<0 OR i2%>639 THEN 1140 
1010 : 

1020 FOR i=l TO n 

1030 : j 2 % (i) = j8 + my * (y(i)-y8) 

1040 : IF jl% (i) <0 OR jl%(i)>319 THEN 1130 

1050 : IF j 2%(i) < 0 OR j2%(i)>319 THEN 1130 

1060 : IF k/5< >INT (k/5) THEN 1110 

1070 : d = 4+i 

1080 : MOVE i1%-d,j1% (i) :DRAW i1%,j1% (i)+d , 1 
1090 : DRAW i1%+d,j1% (i) ,1:DRAW i1%,j1% (i)-d,1 
1100 : DRAW i1%-d,j1% (i) , 1 
1105 : 

1110 : MOVE il%,jl%(i) : DRAW i2%,j2%(i) ,1 
1120 : jl% (i) = j2% (i) 

1130 NEXT 1 

1140 il% = i2%: k=k+l 

1150 GOTO 850 

1160 a$=INKEY$: IF a$ = "" THEN 1160 


Wir beschreiben nun das Programm zur Lösung von Differentialgleichungssystemen. In den 
Zeilen 150 bis 200 werden die Differentialgleichungen 

yl' = fl (y0, yl, y2, ..., yn) 
y2‘ = f2 <y0, yl, y2, yn) 


yn' = fn (yO, yl, y2, ..., yn) 

eingetragen. Hierbei wird z. B. für y2’ geschrieben ys(2). Die Variable x ist im Programm als 
y(0) zu schreiben. 

Die Zeilen 250 bis 380 dienen lediglich zur Erklärung und der Aufforderung, in dem Unter¬ 
programm von 150 bis 200 das aktuelle Differentialgleichungssystem als Programmzeilen 
einzugeben. Danach wird das Programm mit RUN 400 fortgesetzt. In den Zeilen 410 bis 440 
werden die für das RUNGE-KUTTA-GILL-Verfahren erforderlichen Konstanten besetzt. 
In der Zeile 470 wird die Anzahl n der eingegebenen Differentialgleichungen abgefragt. 
Dann wird der x-Anfangswert y(0),x-Endwert xx und die x-Schrittweite h eingegeben. 
Durch die Zeilen 580 bis620 werden die Anfangswerte von y l,y2,.. .,yn für den x-Anfangs¬ 
wert abgefragt. 

Oft möchte man mehrere Variationen in das gleiche Bild zeichnen. Deshalb wird in der Zei¬ 
le 640 gefragt, ob die alte Grafik gelöscht werden soll. Beim erstmaligen Zeichnen ist das al¬ 
te Bild zu löschen. Durch MODE 2 (Zeile 680) wird der hochauflösende Bildschirm akti¬ 
viert. Die Zeilen 750,760 zeichnen ein Gitternetz, das einer Einteilung des x- und y-Berei- 
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ches in 10 Teilintervalle entspricht. In der Zeile 780 werden die Zeichenmaßstäbe mx,my 
berechnet. Der zu dem x-Anfangswert gehörende Pixel il% wird in der Zeile 790 berech¬ 
net. Die Schleife (Zeilen 810 bis 830) rechnet alle y-Anfangswerte in die Pixel j l%(i) um. 

Die Zeilen 850 bis 880 können aktiviert werden, wenn eine Tabellenausgabe der berechne¬ 
ten Werte gewünscht wird. Die Zeilen 890,900 beenden den Programmlauf, wenn das Ende 
des x-Zeichenbereiches erreicht ist. Die Zeilen 910 bis 970 stellen den RUNGE-KUTTA- 
GILL- Algorithmus dar. Für die um h versetzte Stelle wird in der Zeile 990 der „neue“ Pixel 
i2% und im folgenden (Zeilen 1020 bis 1130) die „neuen“ y-Pixels j2%(i) ermittelt und die 
n-Kurven stückweise gezeichnet (Zeile 1110). 

Damit man die Kurven y l(x),y2(x),.. .,yn(x) voneinander unterscheiden kann, werden die¬ 
se durch kleine Quadrate gekennzeichnet (Zeilen 1080 bis 1100). Wegen des Wertes von 
d=4+i (Zeilen 1070,1080 bis 1100) erhält yl(x) infolge i=l die kleinsten Quadrate. Die 
Anzahl der bereits durchgeführten x-Schritte wird durch k (Zeile 1140) hochgezählt. Ledig¬ 
lich in jedem fünften Schritt (Zeile 1060) werden die Kurven durch Quadrate gekennzeich¬ 
net. 

Bei der Erstellung von Grafiken als Lösungen von Differentialgleichungssystemen ist dar¬ 
auf zu achten, daß am Anfang die y-Grenzen (min y8, max y9, Zeile 210) nicht zu eng ge¬ 
wählt werden, weil die Funktionen allzuleicht den vorgesehenen Bereich verlassen. 



Grafik 72: Homogene Differentialgleichung 4. Ordnung 


Die Grafik 72 ergibt sich entsprechend dem abgedruckten Programm für das Differentialsy¬ 
stem 

170 ysCI) = y(3): ys(2) = y(4) 

180 ys(3) = y(2): ys(4) = y(1) 

200 RETURN 

210 x8 = -0.5: x9 = 4.5: y8 = -3: y9 = 2 

mit n=4 und dem x-Anfangswert 0, dem x-Endwert von 4, der x-Schrittweite von 0.05 und 
den Anfangswerten 
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y(1) = 1 Cyl = 1 für x=0) 

y(2) = -1 (y2 = -1 für x=0) 

y(3) = 1 (y3 = 1 für x=0) 

y(4) = -1 (y4 = -1 für x=0) 

Das hier zum Testen gewählte Differentialgleichungssystem entspricht der homogenen Dif¬ 
ferentialgleichung 4. Ordnung 

yl" " - yl = 0, 

dessen allgemeine Lösung durch 

yl(x) = k1*exp(x) + k2*exp(-x) + k3*cos(x) 

+ k4*sin(x) 

gegeben ist. Ändern wir die Anfangswerte in 

yd) = 1.0 (yl = 1.0 für x = 0) 

y(2) = -1.3 (y2 = -1.3 für x = 0) 

y(3) = 1.1 (y3 = 1.1 für x = 0) 

y(4) = -1.0 (y4 = -1.0 für x = 0) 

ab, so ergibt sich bei sonst ungeänderten Eingaben die Grafik 73. 



Grafik 73: Homogene Differentialgleichung mit geänderten Anfangs werten 


16.3 Universelles Zeichenprogramm 

Das im folgenden beschriebene Programm kann für unterschiedliche Anwendungen einge¬ 
setzt werden. Wir werden hier nur die wichtigsten Leistungen dieses Programmes beschrei¬ 
ben. 

Es können Funktionen y(x) wie z. B. 

1280 y = x*x - 4 
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maßstäblich in ein kartesisches Koordinatensystem gezeichnet werden (Grafik 74). Die x,y- 
Achsen werden beschriftet. Hierbei ist das Zeichenintervall auf der x,y-Achse wählbar. Das 
Programm arbeitet intern mit der Parameterdarstellung von Funktionen. Deshalb sind auch 
Spiralen (Grafik 75) wie z. B. 

1270 x = EXPC-0.02*t) * COS(t) 

1280 y = EXP(-0.01*t) * SIN(t) 

sowie zufallsabhängige Funktionen (Grafik 76) wie z. B. 

1270 x = t:h = RND(1): IF h<0.5 THEN y = x+1 
1280 IF h<0.5 THEN y = x-1 

grafisch darstellbar. 



Weiterhin kann mit diesem Programm eine Punktetabelle für die Koordinaten von Meß¬ 
punkten erstellt und korrigiert werden. Diese Punkte werden mit dem Programm grafisch 
dargestellt, und es kann ein zugehöriges Approximationspolynom ermittelt werden. Das 
Polynom wird in die gleiche Grafik wie die Meßpunkte gezeichnet. Die Meßpunkte werden 
im allgemeinen nicht alle auf der gesuchten Approximationskurve liegen. 

Ein Approximationspolynom minimiert die y-Fehlerquadratsumme. 

Mit diesem Programm können auch mehrere Funktionskurven in das gleiche Bild gezeich¬ 
net werden. Durch das Eingeben der neuen Funktion in eine BASIC-Zeile (1280) und das 
erneute Starten des Programmes durch GOTO 2700 (nicht RUN !) bleiben die Variablenin¬ 
halte zugänglich. Dadurch wird ein angenehmes interaktives Arbeiten mit Programm er¬ 
möglicht. 

Beim Eintippen des Programmes ist sehr sorgfältig vorzugehen. In der Testphase ist vor je¬ 
dem „RUN“ das Programm zu „SAVEn“. Insbesondere müssen auch die scheinbar unsinni¬ 
gen Zeilen 1400—1530 eingegeben werden. 
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Grafik 75: Spiralen 


Diese (und nur diese) aufgeführten Variablen werden initialisiert und sind dann im Pro¬ 
gramm verwendbar. Der Benutzer kann bei der Eingabe der zu zeichnenden Funktion die 
Hilfsvariablen h0,hl,h2,.. .,h8 als kurzzeitige Zwischenspeicher (1270—1280) verwenden. 

Bei einem Kaltstart des Programmes ist lediglich „RUN“, gefolgt von der ENTER-Taste, 
einzugeben. Ist jedoch nach ungewollter Beendigung des Programmes ein Warmstart erfor¬ 
derlich, so ist „GOTO 2400“, gefolgt von ENTER, einzugeben. Das Programm verzweigt 
zum Hauptmenü, und die Variableninhalte sind weiterhin zugänglich. 



Das Hauptmenü (2400—2510) ermöglicht die Auswahl von verschiedenen Leistungen. 
Drücken wir z. B. auf die Taste „4“, so verzweigt das Programm (siehe Zeile 2550) zum 
Zeichnen von Funktionen (Programmzeile 2600). Der Benutzer wird aufgefordert, die zu 
zeichnende Funktion einzugeben. Soll die Funktion y(x) in ein x,y-System gezeichnet wer¬ 
den, so ist durch 

1270 x = t 

für x die Laufvariable t (Parameterdarstellung) zu verwenden. 
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In der Zeile 1280 wird nun die gewünschte Funktion wie z. B. 

1280 y = x*x - 4 

hinterlegt und durch „GOTO 2700“ der Programmlauf fortgesetzt. 

Für die Wahl der Achsengrenzen ist die Kenntnis des kleinsten und größten Funktionswer¬ 
tes wünschenswert. Deshalb wird der Benutzer gefragt, ob eine solche Min-Max-Rechnung 
durchzuführen sei. Für diese Rechnung ist t-min, t-max und delta-t einzugeben. Für Funk¬ 
tionen y(x) gilt: t-min entspricht x-min, t-max entspricht x-max und delta-t entspricht delta- 
x. 

Das Programm erfragt nun, ob der Funktionsgraph in das alte Bild gezeichnet werden soll, 
oder ob das alte Bild vor dem Zeichnen zu löschen ist (Zeile 3280). Dann fragt das Pro¬ 
gramm nach der Beschriftung der x- und y-Achse. Dem Benutzer werden Werte vorgeschla¬ 
gen, die natürlich geändert werden können. Die Eingabewerte werden in der Zeile 3610 
überprüft. Die Eingabe wird wiederholt, wenn für eine „delta“-Abfrage der Wert 0 eingege¬ 
ben wird. Durch die Programmzeilen 3650,3660 wird geprüft, ob die Koordinatenachsen in 
die Bildmitte gezeichnet werden können. Die Zeile 3640 legt die Bildgröße in Bildschirm¬ 
pixel fest. In der Zeile 3670 werden die Maßstäbe x4,y4 für die x,y-Achsen berechnet. Wird 
später eine zusätzliche Kurve in das gleiche Bild gezeichnet, so werden erneut diese alten 
Werte x4,y4,i8,j8,x8,y8 zur Umrechnung in die Bildschirmpixel verwendet (siehe Zeilen 
1350,1360). Durch die Zeile 3770 wird die x-Achse ohne Markierung gezeichnet. Die Mar¬ 
kierung und die Beschriftungen der x-Achse erfolgen durch die Schleife 3780 bis 3870. In 
ähnlicher Weise erstellen die Zeilen 3890—3990 die y-Achse. Durch die Zeilen 4050—4140 
wird der Funktionsgraph gezeichnet. 

Gewöhnlich ist pp= 1 (Zeile 4090). Die Kurve wird durch Sehnenstücke gebildet. Für pp=0 
wird die Kurve gelöscht. Für pp=3 besteht die Kurve aus Einzelpunkten. Mit Hilfe von pp 
können verschiedene Zeichen-Strich-Arten gewählt werden. Der Aufruf GOSUB 1270 in 
der Zeile 4070 bewirkt die Berechnung der x,y-Werte der eingegebenen Funktion und GO¬ 
SUB 1310 die Umrechnung von x,y in die Bildschirmpixel xl,yl. Außerdem prüft GOSUB 
1310, ob die x,y-Werte innerhalb des (x8,y8),(x9,y9)-Rechteckes liegen. Wandert die Kurve 
über den Bildrand, so werden die herausfallenden x,y-Werte durch die entsprechenden 
Bildrandwerte ersetzt. 

Als Beispiel wollen wir nun die Eingaben für die Grafik einer gedämpften Schwingung 
zeichnen lassen (Grafik 77). Nach dem Start des Programmes wählen wir im Hauptmenü 
die Nummer „4“ und geben 

1270 x = t 

1280 y = 10*EXP(-0.1*x) * SIN(x) 

ein. Durch GOTO 2700 wird das Programm fortgesetzt. Die Min-Max-Berechnung fragt 
nach t-min. Weil t-min hier dem kleinsten x-Wert entspricht, geben wir 0 ein; für t-max die 
Zahl 20 und 0.2 für die Schrittweite delta-t der Funktionswertberechnungen. Mit der 
Schrittweite von 0.2 werden alle Funktionswerte durchgerechnet. Die kleinsten und größten 
x,y-Werte werden angezeigt. Wir löschen die alte Grafik. Für die x-Achsenbeschriftungen 
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geben wir 0 für x-min, 20 für x-max und 0.5 für delta-x ein. Die x-Achsenmarkierungen er¬ 
folgen also mit einer Schrittweite von 0.5. 

Da die Extremwerte y-min=—6.25,y-max=8.57 ermittelt wurden, können die Achsenab¬ 
schnitte geeignet gewählt werden. Für die y-Achsen-Beschriftung geben wir —10 für 
y-min,+ 10 für y-max und 1 für delta-y ein. Wir wählen eine Darstellung mit Gitternetz. 
Nachdem die Kurve gezeichnet ist, erscheint wieder das Hauptmenü. 



Grafik 78: Zykloide und Trochoide 


Weil wir eine weitere gedämpfte Schwingung in die gleiche Grafik zeichnen wollen, wählen 
wir die „4“. Nun ändern wir die Zeile 1280 in 

1280 y = 7.5*EXP(-0.1*x) * SIN(x) 

ab. Nach dem Fortsetzen mit GOTO 2700 braucht die Min-Max-Berechnung nicht erneut 
ausgeführt werden. Die t-Grenze legen wir durch 0,20,0.15 fest. Da wir die neue Kurve in die 
alte Grafik zeichnen wollen, darf das alte Bild nicht gelöscht werden. Nachdem die Kurve 
gezeichnet ist, wird in gleicher Weise die 3. Funktion 
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1280 y = 5*EXP(-0.1*x) * SIN(x) 

in das gleiche Koordinatensystem gezeichnet. Wir erhalten die Grafik 77. Wie zu erkennen 
ist, wurde für jede Kurve jeweils eine andere Linienart gewählt. Die Linienart 2 ergibt bei 
unterschiedlicher Schrittweite delta-t verschiedene Strichlängen. Für die Linienart 3 
(punktiert) wird der PLOT-Befehl (Zeile 4120) verwendet. 

In ähnlicher Weise können wir z. B. die Zykloide und Trochoide 

1270 b = 15: a = 10 
1275 x = a*t - b*SIN(t) 

1280 y = a - b*C0S(t) 

zeichnen lassen. Für die punktierte Kurve der Grafik 78 gilt a=10,b=5, für die gestrichelte 
Linie gilt a=10,b=10, und für die durchgezogene Linie gilt a=10,b=15. 

Mit diesem Zeichenprogramm können auch Approximationspolynome berechnet und ge¬ 
zeichnet werden. Hierzu starten wir das Programm und wählen beim Hauptmenü die Zahl 1 
(Punktetabelle eingeben). Wir beginnen mit der Punktnummer 1 (1 gefolgt von ENTER 
eingeben) und geben für x den Wert —2 gefolgt von ENTER und für y den Wert —2 ein. Auf 
diese Weise geben wir die folgenden Koordinaten 


Nr. 

l 

2 

3 

4 

5 

6 

7 

X 

-2.0 

-1.5 

+0.5 

+ 1.0 

+2.0 

+2.5 

+3.0 

y 

-2.0 

-2.5 

-1.0 

0.0 

+ 1.5 

+2.0 

+ 1.5 


ein. Liegt ein Eingabefehler vor, so geben wir am Zeilenanfang die entsprechende Punkt¬ 
nummer, gefolgt von den koorigierten x,y-Werten, ein. Eine negative Punktnummer, ge¬ 
folgt von ENTER, beendet die Eingabe. 

Wählen wir beim Hauptmenü die Zahl 2, so wird die vollständige Tabelle angezeigt. Wird 
die Zahl 5 gewählt, so verzweigt das Programm zum Zeichnen dieser Meßpunkte. Die Min- 
Max-Berechnung ergibt x-min=—2,x-max=3,y-min=—2.5,y-max=2 und fragt nach der 
Kennzeichnung der Punkte. Wir wählen die Punktekennung 1 (Quadrate) und löschen das 
alte Bild. Für die x-Achsenbeschriftung geben wir —4 für x-min,+4 für x-max und 0.2 für 
delta-x ein sowie für y-min —4, für y-max +4 und für delta-y 0.2. Wir wählen eine Darstel¬ 
lung ohne Gitternetz (Grafik 79). Nun wird das Koordinatensystem gezeichnet, und die 
Punkte aus der Punktetabelle werden eingetragen. 

Wir wollen abschließend ein Approximationspolynom berechnen lassen, das die 7 Meß¬ 
punkte möglichst gut beschreibt. Hierzu wählen wir am Hauptmenü die Zahl 8 (Regres¬ 
sionspolynom). Als Polynomgrad wählen wir 1. Dieses Polynom entspricht der Regres¬ 
sionsgeraden. Der Rechner zeigt an, daß diese Geradengleichung in der Zeile 1280 einzuge¬ 
ben ist. Wir übernehmen die Zeile 1280 mit dem COPY-CURSOR und betätigen die EN- 
TER-Taste. Dann setzen wir durch die Eingabe von GOTO 2700, gefolgt von ENTER, den 
Programmlauf fort. Da wir das Koordinatensystem bereits gezeichnet haben, ist eine erneu- 
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te Min-Max-Berechnung nicht erforderlich. Der kleinste t-Wert entspricht x-min. Die Re¬ 
gressionsgerade soll von x=—3.0 bis x=4.0 gezeichnet werden. Deshalb geben wir für t-min 
den Wert —3, für t-max den Wert 4 und für delta-t den Wert 0.2 ein. Die Regressionsgerade 
soll als gestrichelte Linie (2) in das alte Bild gezeichnet werden. 

Wir wiederholen das Verfahren für ein Regressionspolynom 3. Grades, das wir durchgezo¬ 
gen in das gleiche Bild zeichnen und schreiben den Text „Regressionspolynome“ ab der 
Stelle 1.5,—2.5 in die Grafik. Natürlich können jetzt Punkte geändert oder hinzugefügt und 
das dazugehörige Approximationspolynom gezeichnet werden. In den Zeilen 5500 bis 5710 
ist ein Programmstück enthalten, das die Ausgabe der hochauflösenden Grafik auf einem 
SCHNEIDER-Drucker ermöglicht. Die Ausgabe eines Bildes in hochauflösender Grafik 
benötigt ca. 3 Minuten. 


1100 REM 
1110 REM 
1120 REM 
1130 REM 
1140 REM 
1150 REM 
1160 REM 
1170 REM 

1180 GOSUB 5500: REM zur Druckerroutine 
1190 : 

1200 MODE 2:BORDER 2:INK 0,1:INK 1,26 

1210 WINDOW #0,1,80,1,6 

1220 ORIGIN 0,0,0,639,303,0 

1230 GOTO 1390 

1240 : 

1250 : 


Universelles Plot-Programm 
fuer die Darstellung von 
Funktionen in Parameterdar¬ 
stellung und zum Zeichnen 
von Messpunkten sowie der 
Regressionspolynome 
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1260 REM- Funktion in Parameterdarstellung - 

1270 x = t 

1280 y = x*x - 4 

1290 RETURN 

1300 : 

1310 IF x<x8 THEN x = x8 
1320 IF x>x9 THEN x = x9 
1330 IF y<y8 THEN y=y8 
1340 IF y>y9 THEN y=y9 
1350 xl = i8 + x4* (x-x8) 

1360 yl = j8 + y4* (y-y8) 

1370 RETURN 
1380 : 

1390 nn=0:pp=l:ll=l:kk=l 

140 0 i8 = 0:i9=0:i1=0:i2 = 0:j8=0:j9 = 0 

1410 a=0:b=0:c=0:d=0:e=0:f=0:g=0:h=0:i=0:j=0 

1420 k=0:l=0:m=0:n=0:o=0:p=0:q=0:r=0:s=0:t=0 

1430 u=0:v=0:w=0:x=0:y=0:z=0 

1440 t8=-10:t9=10:t5=0.2 

1450 x0=0:xl=0:x2=0:x3=0:x4=0:x5=0:x6=0:x7=0 
1460 x8=0:x9=0 

1470 y0=Q:yl=0:y2=0:y3=0:v4=0:y5=0:y6=0:y7=0 
1480 y8=0:y9 = 0 

1490 h0=0:hl=0:h2=0:h3=0:h4=0:h5=0:h6=0:h7=0 
1500 h8=0:h9=0 

1510 n0=l:nl=l:n2=l:n3=l:n4=100:n5=l:n6=l:n7=l 

1520 n8=l:n9=n4 

1530 a$ = "":b$="":h$="":jn$ = "" 

1540 DIM i (8) , x (100) , y(100), a(102,7) 

1550 FOR i = l TO n4: x(i)=-i: y(i)=-i: NEXT 
1560 GOTO 2400 
1570 : 

1600 REM- Punkte Einqeben - 

1610 CLS#0 
1620 i=0 

1630 IF n4>n9-l THEN n4=l 
1640 PRINT#0, 

" Nr negativ beendet die Eingabe !" 

1650 PRINT#0, 

"Nr X Y" 

1660 i=i+1: IF i<l OR i>n9 THEN 2400 

1670 INPUT#0i ;" ";i:IF i<l OR i>50 THEN 1730 
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1680 INPUT#0 , ; " • " ; x(i) 

1690 INPUT#0 , ; " y(i): PRINTttO 

1700 IF ABS (x (1))+ABS(y(i)j > 9E+09 THEN 1730 

1710 IF i>n4 THEN n4 = i 

1720 GOTO 1660 

1730 GOTO 2400 

1740 : 

1750 REM- Punkte Ausgaben - 

1760 CLS#0 
1770 PRINTttO, 

" ENTER-Taste beendet die Ausqabei"; 

1780 PRINT#0, 

" LEER-Taste setzt die Ausqabe fort" 

1790 PRINTttO, 

" Nr X Y" 

1800 FOR i=l TO n4 

1810 PRINT#0i" ";i;" | ";x(i); 

" ! "; y (i) 

1820 IF i/4<>INT (i/4) THEN 1850 
1830 a$=INKEY$: IF a$="" THEN 1830 
1840 IF a$=CHR$ (13) THEN GOTO 1870 
1850 NEXT i 

1860 a$=INKEY$: IF a$="" THEN 1860 
1870 GOTO 2400 
1880 : 

1890 REM- Tabelle Korriqieren - 

1900 CLS#0 
1910 PRINT#0, 

" Punkte einfueqen = 1"; 

1920 PRINT# 0, 

" Punkte ueberschreiben = 4" 

1930 PRINT#0i 

" Punkte loeschen = 2"; 

1940 PRINTttO, 

" beenden der Korrektur = 5" 

1950 PRINTttO, 

" Teil-Tabelle auswaehlen = 3" 

1960 jn$=INKEY$: IF jn$="" THEN 1960 
1970 h9=VAL>( jn$) 

1980 ON h9 GOTO 2010,2130,2230,2400,2400 
1990 GOTO 1890 
2000 : 

2010 CLSttO:PRINTttO 
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2020 PRINT#0." Die Anzahl der 

2030 INPUT#0>"einzufuegenden Punkte ist ";hl 

2040 PRINT#0." Punkte sollen 

2050 INPUT#0."eingefueqt werden ab der Nr. ";h2 
2060 FÜR j=l TO hl 

2070 FOR i=n9-l TO ABS (h2) STEP -1 
2080 x(i+l)=x(i): y(i + l)=y(i) 

2090 MEXT i: x(h2)=Ö: y(h2)=0 
2100 MEXT j: i=h2-l: n4=n4+hl 
2110 GOTO 1630 
2120 : 

2130 CLS#0:PRIMT#0 

2140 PRINT#0," Alle Punkte von der Nrl 

2150 PRINT#0i"bis zur Nr2 sind zu loeschen"; 

2160 INPUTttO ." Nrl, Nr 2 ";hl,h2 

2170 hl=ABS (hl) : IF h2<hl THEN 2130 

2180 FOR i=l TO n9-h2 

2190 x (hl + i-1) =x (h2 + i) : y (hl+i-1) =y (h2 + i) 

2200 NEXT i 

2210 n4=n4+hl-h2-l: GOTO 2400 
2220 : 

2230 CLS#0:PRINT#0 

2240 PRINT#0," Alle Punkte von der Nrl 
2250 PRINT#Q,"zur Nr2 sind in die aktuelle"; 
2260 PRINT#0," Tabelle fuer das" 

2270 PRINTttO," Regressionspolynom zu 
22S0 PRINT#0,"uebernehmen"; 

2290 INPUTttO." Nrl, Nr 2 n3,n4 

2300 GOTO 2400 
2310 : 

2400 CLS #0 

2410 LOCATE#0,31,1:PRINTttO,"CPC464 - GRAPHIK" 
2420 PRINT# 0 

2430 PRINT#0Punkte—Tabelle einqeben = 1"; 
2440 PRINT#0," Funktionen zeichnen = 4"; 

2450 PRINT#0," Graphik ausplotten = 7"; 

2460 PRINT#0,"Punkte-Tabelle anzeigen = 2"; 
2470 PRINT#0," Punkte in Graphik = 5"; 

2480 PRINT#0," Regressionspolynom = 8"; 

2490 PRINT#0,"Punkte-Tabelle korrigieren = 3"; 
2500 PRINT#0," Graphik beschriften = 6"; 

2510 PRINT#0," Beenden = 9"; 
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2520 jn$=INKEY$: IF jn$="" THEN 2520 
2530 h9=VAL(jn$) 

2540 : 

2550 ON h9 GOTO 1600,1750,1890,2600,2700, 

4400,5310,4620,5720 
2560 GOTO 2400 
2570 : 

2580 : 

2600 CLS#0 
2610 PRINTttO, 

2620 PRINTttO, 

2630 PRINTttO, 

2640 PRINT#0, 

2650 PRINTttO, 

2660 PRINTttO, 

2670 PRINTttO, 

2680 LIST 127 
2690 : 

2700 : 

2710 CLS #0 
2720 PRINT#0 , 

2730 INPUTttO , 

2740 CLS#0 
2750 IF h9=5 
2760 PRINTttO, 

" Grenz 
2770 PRINT#0, 

" Kle 
2780 PRINT# 0, 

" Groesster t-Wert t-MAX ";t9 

2790 IF LOWER$ (jn$)="j" THEN t5= (t9-t8)/50 
2800 PRINT#0, 

" t-Schritt-Weite Delta-t ";t5 

2810 INPUTttO," Werte aendern (j/n) ";a$ 

2820 IF LOWER$(a$)<>"j" THEN 2890 
2830 CLS#0 

2840 PRINTttO," Grenzen fuer Laufvariable"; 
2850 PRINTttO," t eingeben":PRINTttO 
2860 INPUTttO, 

" Kleinster t-Wert t-MIN ";t8 

2870 INPUTttO, 

" Groesster t-Wert t-MAX ";t9 


" Eingeben der Funktion"; 

" mit den Zeilen-Nummern."; 
"Dann fortsetzen mit der"; 

" ENTER-Taste !! "; 

"Damit die Zeile"; 

" uebernommen wird. "; 

"Weiter mit qoto 2700 !! "; 
0-1289 


ff ft . 

"MIN-MAX-Berechnung (j/n) ";jn$ 

THEN 18=n 3 : t9 = n4: t5 = l:GOTO 2920 
en fuer Laufvariable t": PRINTttO 
inster t-Wert t-MIN ";t8 
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2880 INPUT#0, 

" t-Schritt-Weite Delta-t ";t5 

2890 IF (t9-t8)*t5<=0 THEN PRINT#0, 

" FEHLER!!!" ELSE GOTO 2920 

2900 FOR z = 0 TO 500:NEXT: GOTO 2740 
2910 : 

2920 IF jn$ = "n" THEN 3120 
2930 : 

2940 CLS#0 
2950 PRINT#0, 

" Die MIN-MAX-Berechnung ergibt:" 

2960 x6=lE+30: x7=-x6: y6=x6: y7=-x6 
2970 FOR t = t8 TO t9 STEP t5 

2980 IF h9 = 5 THEN x=x (t) : y=y (t) : GOTO 3000 

2990 GOSUB 1270 

3000 IF x>x7 THEN x7=x 

3010 IF x<x6 THEN x6 = x 

3020 IF y>y7 THEN y7=y 

3030 IF y<y6 THEN y6=y 


3040 

NEXT t 




3050 

PRINT#0, 

ff 


X-MIN = ";x6; 


fl 


X-MAX 

= " ; x 7 

3060 

PRINT#0, 

ff 


Y-MIN = ";y6; 


ff 


Y-MAX 

II 

•< 

3070- 

PRINTttO 




3080 

LOCATEttO 

» 

35,6 


3090 

PRINT#0, 

ff 

weiter 

mit LEER-Taste" 

3100 

t$=INKEY$ 

: IF t$ 

="" THEN 3100 

3110 

: 




3120 

CLS#0 




3130 

PRINT#0, 

ff 

Linienart eingeben "; 

3140 

PRINTttO, 

fl 

oder 

Punktekennung" 

3150 

PRINT# 0 




3160 

PRINT#0, 

ff 

1 = 

durchgezogene Linie 

3170 

PRINT#0, 

ff 


1 = Quadrate" 

3180 

PRINT#0, 

ff 

2 = 

gestrichelte Linie"; 

3190 

PRINT#0, 

ff 


2 = Dreiecke" 

3200 

PRINT#0, 

ff 

3 = 

punktierte Linie"; 

3210 

PRINT#0, 

ff 


3 = Kreise" 

3220 

PRINT#0, 

ff 

0 = 

Linie loeschen " ; 

3230 

PRINT#0, 

ff 


-1 = zum Hauptmenue" 

3240 

INPUTttO, 

ff 


"; PP 
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3250 IF pp< 0 THEN 2400 
3260 : 

3270 CLS#0:PRINT#0:PRINTttO , " " ; 

3280 INPUT#0,"Bild loeschen (j/n) ";jn$ 

3290 IF LOWER$ (jn$)<>"j" AND LOWERS (jn$)<>"n" 
THEN 2400 

3300 IF LOWERS (jn$)="n" THEN 4030 
3310 : 

3320 CLS#0 

3330 PRINTttO," X-Achsen-Beschriftung" 

3340 PRINTttO," X-Achsen-Beschriftung"; 

" X-MIN ";INT(x6-l) 

3350 PRINTttO," X-Achsen-Beschriftung"; 

" X-MAX ";INT (x7 + 2) 

3360 x8=INT (x6-l) : x9 = INT (x7 + 2) :x5=(x9-x8)/25 
3370 x5 = INT(5*x5 + 0.5) / 5: IF x5 = 0 THEN x5 = 0.2 
3380 PRINTttO," X-Schritt-Weite "; 

" Delta-X x5 

3390 INPUTttO," Werte aendern (j/n) ";a$ 

3400 IF LOWER$ (a$)<>"j" THEN 3470 
3410 CLSttO 

3420 PRINTttO," X-Achsen-Beschriftunq "; 
"eingeben !" 

3430 PRINTttO," X-Achsen-Beschriftunq";: 

INPUTttO," X-MIN ";x8:x6=x8+l 

3440 PRINTttO," X-Achsen-Beschriftunq: 

INPUTttO," X-MAX ";x9:x7=x9-2 

3450 PRINTttO," X-Schritt-Weite 

INPUTttO," Delta-X x5 

3460 : 

3470 CLSttO 

3480 PRINTttO," Y-Achsen-Beschriftung" 

3490 PRINTttO," Y-Achsen-Beschriftung"; 

" Y-MIN ";INT (y6-l) 

3500 PRINTttO," Y-Achsen-Beschriftung"; 

" Y-MAX ";INT (y7 + 2) 

3510 y8 = INT (y6-l) :y9 = INT (y7 + 2) :y5= (y9-y8)/20 
3520 y 5 = INT (5*y5 + 0.5)/5: IF y5=0 THEN y5=0.2 
3530 PRINTttO," Y-Schritt-Weite 

" Delta-Y "; y5 

3540 INPUTttO," Werte aendern (j/n)";a$ 

3550 IF LOWERS (a$)<>"j" THEN 3610 
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3560 CLS#0 

3570 PRINT#0," Y-Achsen-Beschriftung 
"eingeben !" 

3580 PRINT#0," Y-Achsen-Beschriftung"; : 

INPUT#0i" Y-MIN ";y8:y6=y8+l 
3590 PRINT#0," Y-Achsen-Beschriftunq";: 

INPUTttO)" Y-MAX ";y9:y7=y9+2 
3600 PRINT#0," Y-Schritt-Weite 

INPUT#0," Delta-Y "; y5 
3610 IF (x9-x8)*x5<=0 OR (y9-y8)*y5<=0 THEN 

PRINT#0," FEHLER!!!" ELSE GOTO 3630 
3620 FOR z = 0 TO 500:NEXT: GOTO 2700 
3630 : 

3640 i8=60.5: i9=600.5: j8=38.5: j9=294.5 
3650 x0=x8: IF x8<0 AND x9>0 

THEN x0 = 0 : 18=12.5: i9=626.5 
3660 y0=y8: IF y8<0 AND y9>0 
THEN y0=0: j8=8.5 

3670 x4= (19 — 18) / (x9-x8) : y4= (j 9-j 8) / (y9-y8) 

3680 x=x0: y=y0: GOSUB 1350: x0=xl: y0=yl 
3690 INPUTttÖ," Gitternetz (j/n) ";a$ 

3700 CLS#0 

3710 IF a $ < > " j " AND a$<>"n" THEN 2400 
3720 IF LOWERS (jn$)="n" THEN 3740 
3730 CLG 0:MOVE 0,0:DRAW 639,0,1: 

DRAW 639,303,1:DRAW 0,303,1:DRAW 0,0,1 
3740 : 

3750 TAG 
3760 : 

3770 MOVE i8,yO: DRAW i9,y0,1: j=-l 
3780 FOR x=x8 TO x9 STEP x5 
3790 : x = ROUND (x,5) 

3800 : h$ = STR$ (x) 

3810 : GOSUB 1350: h=6*LEN(h$): j=j+l 
3820 : MOVE xl.yO: DRAW xl,y0-5,l 

3830 : IF j/5<>INT (j/5) THEN 3870 

3840 : MOVE xl.yO: DRAW xl,y0-10,l 

3850 : IF h<50 AND h<xl 

THEN MOVE xl-h,y0-15: PRINT h$; 

3860 : IF a$="j" THEN MOVE xl,j8:DRAW xl,j9,l 
3870 NEXT x 
3880 : 
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3890 MOVE x 0ij 8: DRAW x0,j9,l: j=-l 
3900 FOR y=y8 TO y9 STEP y5 
3910 : y=RÖUND (y , 5) 

3920 : h$ = STR$ (y) 

3930 : GOSUB 1350: h=10 *LEN(h$) : j = j+l 
3940 : MOVE x0,yl: DRAW x0-5,yl,l 
3950 : IF j/5<>INT (j/5) THEN 3990 
3960 : MOVE xO.yl: DRAW x0-10,yl,l 
3970 : IF h<50 AND h<x0 

THEN MOVE x0-h,yl-3: PRINT h$; 

3980 : IF a$="j" THEN MOVE i8,yl:DRAW i9,yl,l 
3990 NEXT y 
4000 : 

4010 TAGOFF 
4020 : 

4030 : IF h9 = 5 THEN 4200 
4040 : 

4050 REM- Funktion zeichnen - 

4060 FOR t=t8 TO t9 STEP t5 
4070 : GOSUB 1270: GOSUB 1310 
4080 : IF t=t8 THEN 4130 
4090 : IF pp=l THEN 

MOVE x2,y2: DRAW xl.yl.l: GOTO 4130 
4100 : IF pp=2 THEN MOVE x2,y2: 

DRAW (x2+xl)/2, (y2+yl)/2>l: GOTO 4130 
4110 : IF pp=0 THEN 

MOVE x2,y2: DRAW xl.yl.0: GOTO 4130 
4120 : PLOT xl.yl.l 
4130 : x2 = xl: y2 = yl 
4140 NEXT t: GOTO 4380 
4150 : 

4200 REM- Punkte zeichnen - 

4210 FOR t=t8 TO t9 

4220 : x=x (t) : y=y (t) : GOSUB 1310 

4230 : IF ppOl THEN 4270 

4240 : MOVE xl-8,yl: DRAW xl,yl+8,l 

4250 : DRAW xl+8,yl,l: DRAW xl,yl-8,l 

4260 : DRAW xl-8,yl,l 

4270 : IF pp<>2 THEN 4300 

4280 : MOVE xl-8,yl-8: DRAW xl,yl+8,l 

4290 : DRAW xl+8,yl-8,l: DRAW xl-8,yl-8,l 

4300 : IF pp< >3 THEN 4350 


163 







4310 : DEG: FOR a=0 TO 360 STEP 10 

4320 : a2 = xl + 10*COS(a) : b2 = yl + 10*SIN(a) 

4330 : IF a>0 THEN MOVE al.bl: DRAW a2,b2,l 

4340 : al = a2: bl = b2: NEXT a: RAD 

4350 : PLOT xl,yl,l 

4360 NEXT t 

4370 : 

4380 GOTO 2400 
4390 : 

4400 REM- Beschriften - 

4410 CLS#0 

4420 PRINT#0 i " X MIN = x8; 

" Y MIN = "; y8 

4430 PRINT#0," X MAX = x9; 

" Y MAX = "; y9 

4440 INPUT#0," Ausqabetext ";h$ 

4450 PRINT#0," ' 

4460 INPUT#0i" bei X.Y = x3, y3 

4470 x=x3: y=y3: GOSUB 1350 
4480 : 

4490 PRINTttO," 

4500 INPUT#0,"schreiben/loeschen (s/1) ";jn$ 

4510 TAG 

4520 IF LOWERS (jn$)="s" 

THEN MOVE xl.yl: PRINT h$; 

4530 IF LOWERS (jn$)<>"1" THEN GOTO 4580 
4540 d = LEN(h$) : h$ = "" 

4550 FOR e=l TO d: h$ = " "+h$: NEXT 
4560 MOVE xl.yl: PRINT h$; 

4570 : 

4580 TAGOFF 
4590 GOTO 2400 
4600 : 

4610 : 

4620 REM- Regressionspolynom - 

4630 CLS#0:PRINT#0," "; 

4640 INPUT#0,"Grad des Polynoms ";n2 

4650 n2=n2+l: IF n2>n4-n3+l THEN 4620 
4660 PRINT#0:PRINT#0," Loesung des 
4670 PRINT#0,"Gleichungssystems ..." 

4680 GOSUB 5020 

4690 PRINT#0," X Y 
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4700 PRINT#0 t " Fehler" 

4710 FOR t=l TO nl 

4720 : x = a(ti2): GOSUB 5230 

4730 : PRINTtO," ";x , a(t,0) , a(t,0)-y 

4740 : IF t/5<>INT (t/5) THEN 4780 

4750 : LOCATE#0,50,6 

4760 : PRINT#0,"weiter mit LEER-Taste" 

4770 : a$=INKEY$: IF a$="" THEN 4770 
4780 NEXT t 

4790 PRINT#0i" Polynom-Koeffizienten:" 

4800 FOR i2=1 TO n2 

4810 : PRINT#0 , "a (" ; i2-l; ") =" ; a(0,i2) 

4820 NEXT i2 
4830 LOCATE#0,50,6 

4840 PRINTttO,"weiter mit LEER-Taste" 

4850 a$=INKEY$:IF a$="" THEN 4850 

4860 PRINT#0," Zeilen mit COPY-CURSOR "; 

4870 PRINT#0,"uebernehmen und "; 

4880 PRINT#0,"ENTER-Taste betaetigen" 

4890 PRINT#0,"1270 X = t" 

4900 PRINT#0,"1280 y = "; 

4910 FOR i 2=1 TO n2 : h=a(0,i2) 

4920 : IF ABS (h)<0.00000001 THEN 4960 
4930 : IF h> = 0 THEN PRINT#0,"+"; 

4940 : PRINT#0■h;" IF i2=l THEN 4960 

4950 : FOR il=2 TO i2: PRINT#0,"*x"; : NEXT il 
4960 NEXT i2 
4970 PRINT#0 

4980 PRINT#0," "; 

4990 PRINT#0," weiter mit GOTO 2700" 

5000 END 
5010 : 

5020 REM- Loesung des ueberbestimmten - 

5030 REM- Gleichungs-Systems a(il,i2) - 

5040 REM- Loesunqen stehen in a(0,i2) - 

5050 REM-il=l,2 » . . » nl: i2=1,2,..,n2 - 

5060 nl=n4-n3+l 

5070 FOR i1=1 TO nl: a (il,0)=y (il) : 

a (i 1.1) =1: a (i 1,2) =x (il) 

5080 FOR i2=3 TO n2: 

a (i 1 1 i 2) = a(il.2)*a(ilri2-l) : NEXT : NEXT 
5090 FOR il=l TO nl: hl=0: FOR i2=l TO n2: 
hl=hl + a (i 1 i i 2) *a (0 i i 2) : NEXT 
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5100 a(il,n2+l)=hl-a (il,0) : NEXT: h4=lE+30 
5110 FOR h5=l TO nl+n2: h3=h4: h4=0 : 

FOR i2=1 TO n2: hl=0: FOR il=l TO nl 
5120 hl=hl+a(11,i2)*a (il,n2+l) : NEXT: 

a(nl+2ii2)=hl: h4=h4+hl*hl: NEXT 
5130 IF h3<1E-10 THEN 5220 
5140 hl=h4/h3: FOR i2=l TO n2: 

a (nl + 1 1 i2) = -a (nl + 2 , i 2) +hl*a (nl + 1, i 2) 
5150 NEXT: hl=0: FOR il=l TO nl: h2=0: 

FOR i2=1 TO n2 

5160 h2 = h2+a(il,12)*a (nl + 1,12) : NEXT 
5170 a(il,n2+2)=h2:hl=hl+h2*h2: NEXT: 

IF hl<lE-10 THEN 5220 
5180 h2=h4/hl: FOR i2=l TO n2: 

a (0 i i2) = a (0 , i2)+h2*a (nl + 1, i2) 

5190 REM PRINTttO,h5; 

5200 NEXT: FOR il = l TO nl: 

a (i 1, n2 + l) = a (il, n2 + l)+h2*a (il, n2 + 2) 
5210 NEXT: NEXT 
5220 RETURN 

5230 REM- Horner-Schema - 

5240 y = a(0,n2) 

5250 FOR i2=n2-l TO 1 STEP -1 
5260 y = y*x+a(0,i2) 

5270 NEXT i2 
5280 RETURN 
5290 : 

5300 REM- Graphik ausplotten - 

5310 CLS#0 
5320 CALL &A000 
5330 GOTO 2400 
5340 : 

5350 : 

5360 : 

5500 MEMORY &A000-1 

5510 FOR a=&A0O0 TO &A0BF 

5520 READ b$: POKE a,VAL ("&"+b$) 

5530 NEXT a 
5540 : 

5550 DATA cd,ba,bb,cd,e7,bb,32,bd,aO,cd,6c,aO 
5560 DATA 21,8f,01,22,be,a0,11,00,00,3e,07,32 
5570 DATA cO,aO,cd,7c,aO,Oe , 00,3a , cO,aO,47,e5 
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5580 

5590 

5600 

5610 

5620 

5630 

5640 

5650 

5660 

5670 

5680 

5690 

5700 

5710 

5720 

5730 


DATA d5,c5,cd,f0,bb,cl,dl,21,bd,a0,be,el 
DATA 37,20,01,ä7,cb,ll,2b,2b,10,e9,cd,af 
DATA a0,79,cd,a6,a0,13,e5,21,7f,02,37,ed 
DATA 52,el,38,05,2a,be,a0,18,cc,23,7c,b5 
DATA c8i2b,11.00,00.22.be,aO,3e,07 ,bd,20 
DATA b9,7c,b4,20,b5,3e,04,32,c0,a0,18,ae 
DATA 3e,lb,cd,a6,a0,3e,33,cd,a6,a0,3e,15 
DATA cd,a6,a0,c9,e5,3e,42,cd,le,bb,el,28 
DATA 02,el,c9,3e,0d,cd,a6,a0,3e,0a,cd,a6 
DATA a0,3e,lb,cd,a6,a0,3e.4c,cd,a6,a0,3e 
DATA 7f,cd,a6,a0,3e,02,cd,a6,a0,c9,cd,2e 
DATA bd,3 8,fb,cd,2b,bd,c9,3a,cO,aO,fe , 0 7 
DATA c8,af,cb,ll,cb,ll,cb,ll,c9,00,00,00 
RETURN 

REM- Ende des Proqrammes - 

END 


16.4 Zeichnen mit dem Joystick 

Durch die Möglichkeit einer komfortablen Joystickabfrage liegt es nahe, ein Programm zu 
entwickeln, das es ermöglicht, hochauflösende Zeichnungen mit Hilfe des Joysticks zu er¬ 
zeugen. Der Joystick ist am USER PORT anzuschließen. 

Das folgende lauffähige Teilprogramm benutzt die Variablen xp für die momentane x-Koor¬ 
dinate und yp als y-Koordinate. Der Bildausschnitt, in dem gezeichnet werden soll, ist durch 
i8,i9,j8,j9 bestimmt. Diese Bildbegrenzung erfolgt durch das Unterprogramm (Zeilen 340 
bis 370), das keine Werte zuläßt, die die gegebenen Grenzen über- oder unterschreiten. Zei¬ 
le 50 bestimmt den Bildschirmmittelpunkt als Anfangspunkt. Nach dem Einschalten des 
hochauflösenden Bildschirms (Zeile 120) wird der aktuelle Punkt P(xp,yp) markiert (Zei¬ 
le 160). Wird der Joystick ausgelenkt, so erfolgt in der Zeile 170 ein Sprung zu Zeile 280. 
Hier wird entsprechend der Betätigungsrichtung zu der maßgebenden Zeile (Zeilen 490 bis 
560) verzweigt. In diesen Zeilen wird je nach Joystick-Richtung der Wert dx und der Wert dy 
ggf. mit der positiven oder negativen Schrittweite d belegt. Der dx- bzw. dy-Wert wird in Zei¬ 
le 330 zu dem xp- bzw. yp-Wert addiert. Nachdem eine eventuelle Grenzüberschreitung 
ausgeschlossen wurde (Zeile 340—370), wird an der neuermittelten Position ein Punkt ge¬ 
setzt (Zeile 160). 

Soll der „Cursor“ bewegt werden, ohne zu zeichnen, so drücken wir auf die Feuertaste des 
Joystick. Die Abfrage a=JOY(0) (Zeile 170) liefert nun einen Wert a, der größer als 15 ist. 
In der Zeile 290 wird die p-Kennung auf 0 gesetzt (Stift hoch) und die Schrittweite d vergrö¬ 
ßert. Mit diesem Programm wurde „von Hand“ die Grafik 80 erzeugt. 
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10 REM- Zeichnen mit dem Joystick - 

20 i8 =0: i9 = 639: REM-Bildschirm- - 

30 j 8 = 0: j 9 = 399: REM- pixels 

50 xp = 320: yp = 200: d = 1: p = 0 

120 MODE 2:BORDER 2:INK 0,1:INK 1,26 

130 MOVE i8,j 8: DRAW i9,j 8, 1: DRAW i9,j 9, 1 

140 DRAW i8,j 9, 1: DRAW i8,j8, 1 

150 : 

160 PLOT xq,yq, p: PLOT xp,yp, 1: xq=xp: yq=yp 
170 a = JOY (0) : IF a THEN 280 
190 GOTO 170 
200 : 

280 IF a<16 THEN d=l : p=l 
290 IF a>15 THEN d=3 : p=0 
300 ON a MOD 16 GOSUB 

490,500,170,510,520,530,170,540,550,560 

310 : 

330 xp=xp+dx: yp=yp+dy 
340 IF yp< j 8 THEN* yp= j 8 
350 IF xp>i9 THEN xp=i9 
360 IF xp<i8 THEN xp=i8 
370 IF yp>j 9 THEN yp=j9 
380 GOTO 150 
390 : 
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490 dx = 0:dy= d: 
500 dx = 0:dy=-d: 
510 dx=-d:dy= 0: 
520 dx=-d:dy= d: 
530 dx=-d:dy=-d: 
540 dx= d:dy= 0: 
550 dx- d: dy= d: 
560 dx = d:dy=-d: 


RETURN 

RETURN 

RETURN 

RETURN 

RETURN 

RETURN 

RETURN 

RETURN 


16.5 Mini-CAD-Programm 

Das im Kapitel 16.4 beschriebene Programm zum Zeichnen mit dem Joystick wird nun zu ei¬ 
nem kleinen CAD-Lehr-Programm erweitert. Die Leistungen sind ab der Zeile 1620 in 
PRINT-Anweisungen niedergelegt. In der Zeile 90 wird ein Befehlsstring b$ definiert. Je¬ 
des Zeichen von b$ soll eine bestimmte Leistung des Programmes aufrufen. Die Länge von 
b$ speichern wir in der Variablen lb ab. 


Grundriss eines Hauses 
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Grafik 81: Grundriß eines Hauses 


Wird eine Taste betätigt, so veranlaßt die Zeile 180 einen Sprung zu der Zeile 210. Hier wird 
der Befehlsring b$ nach dem getippten Zeichen a$ durchsucht. Wird in b$ das Zeichen a$ 
gefunden, so wird die Position in al gespeichert und die Schleife 210—230 verlassen. Gemäß 
der Position al wird nun in der Zeile 240 zu dem entsprechenden „Unterprogramm“ ver¬ 
zweigt. 

Drücken wir z. B. die Taste „3“, so wird zur Zeile 600 verzweigt. Dort wird der „Zeichen¬ 
stift“ durch p=0 „hochgestellt“ und der Löschmodus durch pp=0 ausgeschaltet. Durch die 
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Taste „3“ werden die momentanen Cursor-Koordinaten xp,yp in den Variablen xl,yl ge¬ 
speichert. Bei jeder Cursor-Bewegung ändern sich die Koordinaten xp,yp. Die Koordinaten 
xl,yl werden durch „3“ geändert. 

Drücken wir die Taste „x“, so wird zu BASIC verzweigt (Zeile 1300) und das Programm 
beendet. 

Drücken wir die Taste „2“, so wird in der Zeile 1030 der „Zeichenstift“ gesenkt (p=l, Zei¬ 
le 160). Die nachfolgenden Joystick-Bewegungen zeichnen Linien auf den Bildschirm. 

Zum Zeichnen von aufeinanderfolgenden Geraden kann man wie folgt Vorgehen: Zunächst 
wird mit „3“ die aktuelle Cursor-Position in xl,yl gespeichert. Mit dem Joystick gehen wir 
nun zu einem anderen Bildpunkt. Hierbei wird keine Linie gezeichnet. Drücken wir dann 
die Taste „4“ (s. Zeile 630), so wird eine Gerade vom markierten Punkt PI zur aktuellen 
Cursor-Position gezogen. Durch die Zeile 680 wird der Endpunkt der gezeichneten Gera¬ 
den automatisch zum markierten Anfangspunkt Pl. Dadurch können leicht fortlaufende Li¬ 
nienzüge gezeichnet werden. Soll der Punkt Pl nicht nachgeführt werden, so ist die Zei¬ 
le 680 zu neutralisieren. In diesem Falle wird P1 nur durch die Taste „3“ neu markiert, und 
es lassen sich leicht „sternförmige“ Geradenbüschel zeichnen. 

Ist ein Punkt Pl markiert, so kann mit dem Befehl „r“ ein „R“echteck gezeichnet werden. 
Das Rechteck ist durch die diagonal gegenüberliegenden Eckpunkte bestimmt, die durch 
die momentane Cursor-Position und den markierten Punkt P1 gegeben sind. Auf diese Wei¬ 
se wurde die Grafik 81 erzeugt. 

In vielen Fällen muß ein Hilfsraster (Grafik 82) auf dem Bildschirm sichtbar sein, damit 
maßstäblich gezeichnet werden kann. Der Befehl „g“ zeichnet „G“itterpunkte (Zeilen 
1320—1410). Wird erneut „g“ eingegeben, so werden die Gitterpunkte gelöscht. 



Grafik 82: Bohrungen einer Platine 
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Zum Zeichnen von Kreisen markieren wir mit „3“ den Kreismittelpunkt und bewegen den 
Cursor mit dem Joystick zu einem gewünschten Randpunkt des Kreises. Drücken wir nun 
auf die Taste „k“, so wird ein „K“reis gezeichnet (Zeilen 710—990). Auf diese Weise wurde 
die Grafik 82 hergestellt. 

Durch den Befehl „1“ ist es möglich, Figuren zu „Döschen. Hierbei wird 1 einfach vor dem je¬ 
weils auszuführenden Befehl eingegeben. Soll z. B. ein Kreis gelöscht werden, so ist der Mit¬ 
telpunkt zu markieren, der Cursor auf die Kreislinie zu stellen und „1“ gefolgt von „k“ einzu¬ 
geben („l“ösche ,,K“reis). 

Soll eine Gerade gelöscht werden, so ist der eine Geradenendpunkt mit „3“ zu speichern, 
der Cursor auf den zweiten Linienendpunkt zu stellen und „1“ gefolgt von „4“ zu drücken. 
Analog kann ein gezeichnetes Rechteck mit „1“ „r“ gelöscht werden. Weil eine Linie aus vie¬ 
len Bildschirmpixein besteht, kann es Vorkommen, daß einzelne Punkte nicht gelöscht wer¬ 
den. Solche verstreuten Pixel können leicht gelöscht werden, indem man mit dem Cursor zur 
Löschstelle fährt. Nach dem Drücken der Taste „1“ können die verstreuten Pixel dann mit 
der Leertaste gelöscht werden. 

Für die Beschriftung der Zeichnung ist die Taste „1“ vorgesehen, die in den Schreibmodus 
umschaltet (Zeile 1440 ff.). Nach dem Drücken von „1“ erscheint jedes getippte Zeichen auf 
dem Bildschirm. Drücken wir auf ENTER, so springt der Cursor in die nächste Schreibzeile 
(s. Zeile 1520). Durch die Taste mit dem nach oben gerichteten Pfeil springt der Cursor an 
den Anfang der darüberliegenden Zeile (s. 1530). Die Leertaste „radiert“ von „links nach 
rechts“ (Zeile 1550) und die DEL-Taste von „rechts nach links“ (Zeile 1540). Bewegen wir 
den Joystick, so wird der Schreibmodus verlassen. 

Die Ausgabe der Grafik auf dem „D“rucker erfolgt mit dem Befehl „d“ (Zeile 1260). 

10 REM 
15 REM 
20 REM 
22 REM 
2 5 REM 
30 REM 

32 GOSUB 3000 
35 GOTO 1600 
40 : 

50 : 

60 18 = 0:19=638: REM- Bildschirm- - 

70 j 8 = 0:j 9 = 399: REM-pixels - 

80 xp=320: yp=200: xl=xp: yl=yp: d=l: nn=99 

90 b$="klrxgdl234": REM- Befehlsstring- 

95 lb = LEN (b$) 

110 : 

130 MOVE i8ij 8:DRAM i9,j8,l:DRAW i9 , j 9,1 


Ein Mini-CAD-Programm zum Zeichnen 
und Loeschen von Kurven» Geraden» 
Kreisen» Rechtecken und zum 
Schreiben von Texten in die Grafik 
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140 DRAW i 8 , j 9,1:DRAW i8,j8,l 
145 : 

150 IF pp=3 THEN PLOT xp,yp,0 
155 IF TEST(xp,yp) THEN 170 

160 PLOT xq.yq.p: PLOT xp,yp,l: xq=xp: yq=yp 
170 a = JOY(O): IF a THEN 280 
180 a$=INKEY$: IF a$O n " THEN 210 
190 GOTO 170 
200 : 

210 FOR i=l TO lb 

220 IF a$=MID$ (b$,i,1) THEN al = i:i = lb 
230 NEXT 
235 : 

240 ON al GOTO 710,1080,1100,1300,1320,1260, 
1440,1030,600,630,260 
260 GOTO 150 
270 : 

280 IF a<16 THEN FOR i=0 TO nn:NEXT: d=l 
290 IF a>16 THEN d=3 

300 ON a MOD 16 GOSUB 490,500,170,510,520, 
530,170,540,550,560 
310 : 

330 xp=xp+dx: yp=yp+dy 
340 IF yp< j 8 THEN* yp=j 8 
350 IF xp>i9 THEN xp=i9 
360 IF xp<i8 THEN xp=i8 
370 IF yp>j9 THEN yp=j9 
380 GOTO 150 
390 : 

490 dx= 0:dy= d: RETURN 
500 dx= 0:dy=-d: RETURN 
510 dx=-d:dy= 0: RETURN 
520 dx=-d:dy= d: RETURN 
530 dx=-d:dy=-d: RETURN 
540 dx= d:dy= 0: RETURN 
550 dx= d:dy= d: RETURN 
560 dx= d:dy=-d: RETURN 
570 : 

600 REM- markieren eines Punktes pl - 

610 p=0: pp=0: xl=xp: yl=yp 
615 al=ll: GOTO 150 
620 : 
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630 REM- Gerade zum .markierten Punkt zeichnen - 
640 p=l: IF pp THEN p=0 

650 IF pp THEN MOVE xl+l,yl: DRAW xp+l,yp,p 
660 IF pp THEN MOVE xl,yl-l: DRAW xp.yp-l.p 
670 MOVE xl.yl: DRAW xp.yp.p: p=0: pp=0 
680 xl=xp: yl=yp 
690 al = ll: GOTO 150 

710 REM- Kreis um markierten - 

715 REM- Mittelpunkt m zeichnen - 

720 r=SQR ((xp-xl) * (xp-xl) + (yp-yl) * (yp-yl)) 

730 DEG: h=r + 6 

740 IF xl-h<i8 OR yl-h<j8 THEN 980 

750 IF pp=l THEN 840 

760 FOR a=0 TO 360 STEP 10 

770 a2=xl + r*COS(a) : b2=yl + r*SIN (a) 

780 IF a>0 THEN MOVE al.bl: DRAW a2,b2,l 

790 al=a2: bl=b2 

795 NEXT a 

800 PLOT xl.yl.l 

810 MOVE xl-h,yl: DRAW xl+h,yl,l 
820 MOVE xl,yl-h: DRAW xl,yl+h,l 
830 GOTO 980 
835 : 

840 h=h+3: rr=r+l 

850 FOR i=-l TO 1 

860 FOR a=0 TO 360 STEP 10 

870 a2=xl + rr*COS(a) : b2=yl + i + rr*SIN (a) 

880 IF a>0 THEN MOVE al.bl: DRAW a2,b2,0 
890 al=a2: bl=b2 
895 NEXT a 

900 FOR a=0 TO 360 STEP 10 

910 a2=xl+i+rr*COS(a): b2=yl + rr*SIN (a) 

920 IF a>0 THEN MOVE al.bl: DRAW a2,b2,0 
930 al=a2: bl=b2 
935 NEXT a 

940 MOVE xl-h.yl+i: DRAW xl+h,yl+i,0 
950 MOVE xl+i,yl-h: DRAW xl+i,yl+h,0 
960 NEXT i 

970 REM- PLOT xl.yl.O 

975 : 

980 RAD: p=0: pp=0: xp=xl: yp=yl 
990 a1=11: GOTO 150 
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1000 : 

1010 : 

1020 REM- mit CURSOR zeichnen/loeschen - 

1030 <3=1: IF pp>l THEN pp=0 : p=0: GOTO 1060 

1040 nn=0: IF pp=l THEN pp=3 

1050 p=0: IF pp=0 THEN p=l: pp=2 

1060 "a 1 = 11 : GOTO 150 

1070 : 

1080 REM- Loeschen - 

1085 p=0: pp=l: d=l: al=ll: GOTO 150 

1090 : 

1100 REM- Rechteck pl zu CURSOR - 

1110 xq=xl : yq=yl 

1120 IF xp<xq THEN xq=xp: xp=xl 

1130 IF yp<yq THEN yq=yp: yp=yl 

1140 IF pp THEN 1180 

1150 MOVE xq.yq: DRAW xp,yq»l 

1160 DRAW xp,yp, 1: DRAW xq,yp, 1 

1170 DRAW xq.yq.l: GOTO 1230 

1175 : 

1180 FOR i=-2 TO 2 

1190 MOVE xq+i,yq+i: DRAW xp+l,yq,0 

1200 DRAW xp+l,yp+l. 0: DRAW xq,yp+l. 0 

1210 DRAW xq+i,yq+i,0 

1220 NEXT i: p=0: pp=0 

1230 xp=xl: yp=yl 

1240 al=l1: GOTO 150 

1250 : 

1260 REM- Hardcopy - 

1270 CALL &A000 
1280 al=ll: GOTO 150 
1290 : 

1300 END: REM- zurueck zu BASIC - 

1310 : 

1320 REM- Gitterpunkte zeichnen/loeschen - 

1330 FOR j = j 8 TO j9 STEP (j9-j8)/19.9 
1340 : FOR i=i8 TO i9 STEP (i9-i8)/31.9 
1350 : PLOT i,j,p 

1360 : NEXT i 
1370 NEXT j 

1380 MOVE i8ij 8:DRAW i9,j8,1:DRAW i9,j9,l 
1390 DRAW i8,j9,1:DRAW i8,j8,l 
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1400 

1410 

1420 

1430 

1440 

1450 

1460 

1470 

1480 

1490 

1500 

1510 

1520 

1530 

1540 

1550 

1560 

1570 

1580 

1590 

1600 

1610 

1620 

1630 

1640 

1650 

1660 

1670 

1680 

1690 

1700 

1710 

1720 

1730 

1740 

1750 

1760 


p=0 

al=ll: GOTO 150 


REM- Text in die Grafik schreiben - 

TAG 

xq=xp: yq=yp 
PLOT xp,yp,l 
IF JOY(O) 

THEN PLOT xp,yp,0: TAGOFF: GOTO 150 
a$=INKEY$: IF a$="" THEN 1480 
PLOT xp,yp,0: PLOT 0,0,1 
IF a$ ="3" THEN TAGOFF: GOTO 210 
IF a$=CHR$ (13) 

THEN yp=yp-16: xp=xq: GOTO 1460 
IF a$=CHR$ (94) OR a$=CHR$ (240) 

THEN yp=yp+16: xp=xq: GOTO 1460 
IF a$=CHR$ (127) THEN 

xp=xp-8: MOVE xp.yp: PRINT " ";: GOTO 1580 

IF a$=CHR$ (32) THEN 

MOVE xp,yp: PRINT " GOTO 1570 

MOVE xp,yp: PRINT a$; 

xp=xp+8 

GOTO 1470 

MODE 2:BORDER 2:INK 0,1:INK 1,26 
LOCATE 20,1 

PRINT "Befehlssatz fuer das 
PRINT "Mini-CAD-Programm":PRINT 
PRINT 

PRINT " 'CURSOR' wird durch Joystick 
PRINT "bewegt g punktiert ein "; 

PRINT "Gitternetz" 

PRINT " langsam (Joy ohne Feuertaste)"; 
PRINT " Eingabe <l><g> 

PRINT "loescht das Gitter"; 

PRINT " schnell (Joy mit Feuertaste)" 
PRINT SPC(43);"k zieht Kreis um pl 
PRINT "(mit 3 markiert)"; 

PRINT " 1 fuer Texteingabe "; 

PRINT " Radius entspricht "; 

PRINT "'CURSOR'-" 
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1770 PRINT " <ENTER> geht auf die neue 
1780 PRINT "Zeile"; 

1790 PRINT " Stellung" 

1800 PRINT " <~> eine Zeile hoch "; 

1810 PRINT " <l><k> loescht den "; 

1820 PRINT "Kreis, wenn" 

1830 PRINT " loeschen mit <DEL> oder "; 

1840 PRINT "<BLANK> 

1850 PRINT "der 'CURSOR' auf dem Kreisrand" 

1860 PRINT " <3> beendet Texteingabe "; 

1870 PRINT " steht und der "; 

1880 PRINT "Mittelpunkt pl" 

1890 PRINT SPC(46);"markiert ist" 

1900 PRINT " 2 Joy zieht Kurven, ausschalt. 
1910 PRINT "< 2>" 

1920 PRINT " <1><2> loescht beim Zeichnen"; 

1930 PRINT " 1 Loeschen (pl muss "; 

1940 PRINT "markiert sein)" 

1950 PRINT SPC(46) ;"z.B. eine Gerade wird "; 
1960 PRINT "geloescht:" 

1970 PRINT " 3 Punkt pl markieren (pl "; 

1980 PRINT "merken) !!! "; 

1990 PRINT "<3> beim Geradenanfang, dann mit" 
2000 PRINT " abschalten von 1 und 2 "; 

2010 PRINT " 'CURSOR' zum "; 

2020 PRINT "Endpunkt, <1><4>" 

2030 PRINT 

2040 PRINT " 4 Gerade von pl zum 'CURSOR' "; 
2050 PRINT "ziehen "; 

2060 PRINT "r Rechteck von pl zum 'CURSOR'" 
2070 PRINT 

2080 PRINT " x zurueck zu BASIC "; 

2090 PRINT " d Grafik auf dem "; 

2100 PRINT "Drucker ausqeben" 

2110 LOCATE 27,25 

2120 PRINT "<TASTE>-druecken fuer Start" 

2130 a$ = INKEY$: IF a$ = "" THEN 2130 
2140 CLS 
2150 RUN 40 
2160 : 

3000 MEMORY &A000-1 
3010 FOR a = &A000 TO &A0BF 
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3020 READ b$: POKE a,VAL ("&"+b$) 

3030 NEXT a 
3040 : 

3050 DATA cd,ba,bb.cd,e7,bb,32,bd,aO,cd.6c.aO 
3060 DATA 21,8f,01,22,be,aO,11,00,00,3e,07,32 
3070 DATA cO,aO,cd,7c.aO , Oe,00,3a.cO,aO,47,e5 
3080 DATA d5.c5,cd,f0.bb,cl,dl,21.bd,aO,be t el 
3090 DATA 37,20,01,a7,cb,11,2b,2b,10,e9,cd,af 
3100 DATA aO,79,cd,a6,aO,13,e5,21,7f,02,37,ed 
3110 DATA 52,el,38,05,2a,be,a0,18,cc,23,7c,b5 
3120 DATA c8,2b,ll,00,00,22,be,a0,3e,07,bd,20 
3130 DATA b9,7c,b4,20,b5,3e,04,32,cO,aO,18,ae 
3140 DATA 3e , lb , cd , a6 , aO , 3e , 33 i cd , a6 , aO , 3e , 15 
3150 DATA cd 1 a6ia0,c9,e5,3e,42,cd,le>bb,el,28 
3160 DATA 02 , el , c9 , 3e , Od , cd , a6 , aO i 3e , Oa t cd , a6 
3170 DATA aOi3e,lb,cd,a6,aO,3e,4c,cd.a6,aO,3e 
3180 DATA 7f,cdia6,aOi3e,02,cd,a6,aO,c9,cd,2e 
3190 DATA bd,38,fb,cd,2b.bd»c9,3a,cO,aO»fe,07 
3200 DATA c8,af,cb,11.cb,11,cb,11,c9,00,00,00 
3210 RETURN 


16.6 Glätten von Meßreihen 

Bei naturwissenschaftlichen Experimenten fallen gewöhnlich Meßwerte an, die infolge von 
Meßfehlern Ungenauigkeiten aufweisen. Wird z. B. ein Vielkanalanalysator verwendet, so 
können die benachbarten Kanalwerte stark streuen. Es besteht die Möglichkeit, diese „ver¬ 
rauschten“ Meßreihen durch die Bildung eines Mittelwertes zwischen den benachbarten 
Meßpunkten zu glätten. Hierbei kann der Einfluß der Nachbarwerte auf den Mittelwert un¬ 
terschiedlich stark berücksichtigt werden. Wir setzen voraus, daß sich die n-Punkte 
Pl(ul,vl),P2(u2,v2),.. .,Pn(un,vn) der Meßreihe fortlaufend, im Sinne aufsteigender Indi¬ 
zes, aus dem Experiment ergeben. 

In der Grafik 83 sind die Meßwerte durch große Doppelrechtecke markiert. Wir wollen nun 
die gemittelten Meßwerte (kleine Rechtecke in der Grafik 83) bestimmen. Hierzu betrach¬ 
ten wir die Abb. 25, in der die 3 Punkte Pl(ul,vl),P2(u2,v2),P3(u3,v3) stellvertretend für 
3 beliebig aufeinanderfolgende Meßpunkte aufgetragen sind. Um die Schwankungen der 
Linien P1-P2-P3 zu mildern, wollen wir P2 durch einen gemittelten Punkt Q2 ersetzen. Der 
Punkt Q2 soll auf der Seitenhalbierenden liegen, die in der Abb. 25 strichpunktiert gezeich¬ 
net ist. 
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Der Parameter t soll den Einfluß der Nach¬ 
barpunkte auf den gemittelten Punkt Q2 
beschreiben. Für t=0 haben die Nachbar¬ 
punkte keinen Einfluß, und es gilt Q2=P2. 
Für t=l ergibt sich Q2 als arithmetisches 
Mittel von PI und P3, d. h. P2 hat keinen 
Einfluß auf Q2. Für t=2/3 ist Q2 der 
Schwerpunkt des Dreiecks P1-P2-P3. Die 
Koordinaten des Punktes Q2 seien x2,y2. 
Nach dem Strahlensatz (s. Abb. 25) gilt 

(y2 - v2)/t = (vl + v3)/2 - v2 

oder umgestellt 



Abb. 25: Ersetzendes Meßpunktes?! durch den 
gemittelten Punkt 02 


y2 = v2 + t*((v1 + v3)/2 - v2), 

und entsprechend ist 

x2 = u2 + t*((u1 + u3)/2 - u2). 


Dabei haben wir die Koordinaten x2,y2 des gemittelten Punktes Q2 unter Berücksichtigung 
der Nachbarpunkte von P2 ausgedrückt. Diese Zeilen gelten analog für den k-ten Punkt 
(Zeilen 1000,1020). Der erste und letzte Punkt der Meßreihe erfordern eine Sonderbehand- 
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lung. Hierzu wird in den Zeilen 910 bis 940 der Vorgängerpunkt u(0),v(0) und der Nachfol¬ 
gepunkt u(n+l),v(n+l) zusätzlich zu den vorgegebenen n-Meßpunkten P1,P2,.. .,Pn be¬ 
setzt. 

In dem folgenden Testprogramm sind 15 Meßpunkte P1,P2,. ..,Pn in den Data-Zeilen 
220,240,250 abgelegt, die in die Felder u(),v() eingelesen werden (Zeile 390). Nachdem 
der Zeichenmaßstab mx,my (Zeile 440) berechnet wurde, wird der hochauflösende Bild¬ 
schirm eingeschaltet (Zeile 480). 

Danach werden für t=0 (Zeile 540) die gemittelten Punkte x(),y() berechnet. Wegen t=0 (s. 
Zeilen 910 bis 1020) entfällt der Einfluß der Nachbarpunkte, d. h. fürt=0 werden die Origi¬ 
nal-Meßpunkte (Zeilen 660,680) in die Bildpunkte (i2,j2) umgerechnet. Diese Punkte wer¬ 
den durch Linien (Zeile 700) verbunden. Die Zeilen 720 bis 740 dienen lediglich zur Kenn¬ 
zeichnung der gemittelten Punkte durch kleine Rechtecke. Für t=0 werden die vorgegebe¬ 
nen Meßpunkte zusätzlich durch größere Rechtecke gekennzeichnet. 

Gilt 0<t< 1, so wird in dem Unterprogramm (840 bis 1060) eine Mitteilung durchgeführt. 
Die Meßreihe wird geglättet. Abgesehen vom ersten und n-ten Punkt werden bei der Glät¬ 
tung jeweils 3 aufeinanderfolgende Meßwerte zur Berechnung der gemittelten Werte ver¬ 
wendet. Diese gemittelten Meßpunkte werden durch Geraden verbunden. Sollen diese ge¬ 
mittelten Punkte durch stetige Kurven verbunden werden, so ist hierfür z. B. der Algo¬ 
rithmus des Kapitels 14.2 geeignet. 

Bei den bisherigen Betrachtungen wurden sowohl die x-Werte als auch die y-Werte geglät¬ 
tet. Für zahlreiche Anwendungen ist lediglich eine Glättung der y-Werte durchzuführen. In 
diesem Fall ist die Zeile 1000 des folgenden Programmes durch ein hinter die Zeilennum¬ 
mer eingefügtes „REM“ zu neutralisieren. Als Ergebnis einer y-Glättung ergibt sich die 
Grafik 84. Ist dagegen nur die Zeile 1000 aktiv und die Zeile 1020 neutralisiert, so ergibt 
sich eine Glättung der x-Werte (Grafik 85). 

Das Programm zum Glätten von Meßwerten kann in vielfacher Weise zur Herstellung von 
künstlerischen Grafiken verwendet werden. Hierbei sind lediglich geeignete Punkte in den 
Zeilen 220,240,250 einzugeben. Die Reihenfolge der Punkte entspricht der Reihenfolge 
der gezeichneten Linien. Durch die Schleife in Zeile 540 mit geeigneten Grenzen und klei¬ 
ner Schrittweite ergeben sich durch den Unterprogrammaufruf in der Zeile 600 jeweils ge¬ 
änderte Punkte, die dann entsprechend verbunden werden. Wird die Zeile 540 durch 

540 F0R t=~.2 T0 1.1 STEP .08 

und die Zeile 220 durch 

220 DATA 5, -.5,-3, -3,3, 0,1, 3,3, .5,-3 

ersetzt, so ergibt sich die Grafik 86 für eine x- und y-Glättung, Grafik 87 für eine y-Glättung 
(Zeile 1000 neutralisiert) und Grafik 88 für eine x-Glättung (Zeile 1020 neutralisieren). 
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Grafik 84: Glättung der y -Meßwerte 



Grafik 85: Glättung der x-Meßwerte 
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Grafik 86: xj-Glättung 



Grafik 87: y-Glätlung 






Grafik 88: x- Glättung 


160 REM Glaetten von Messpunkten pl,p2,...,pn 
180 : 

200 REM n, ul.vl, u2,v2, .. un.vn 

220 DATA 15, -4,1, -3,2, -2,2, -2,1, -1,2.5 
240 DATA 0,0, 1,3, 2,2, 3,3, 3,1.5 

250 DATA 3,0, 1,-2, 0,-2, 0,-3, -1,-3 

260 : 

280 DIM u (100) , v (100) , x (100) , y(100) 

300 x8 =-4.5: x9 = 4.5: y8 =-4.5: y9 = 4.5 

320 i8 = 0.5: i9 =639.5: j8 = 0.5: j9 =399.5 
340 : 

360 READ n 

380 FOR k=l TO n 

390 READ u(k),v(k): x (k) =u (k) : y (k) =v (k) 

400 NEXT k 
410 : 

440 mx = (i9-i8) / (x9-x8) : my = (j9-j8) / (y9-y8) 
450 : 

480 MODE 2:BORDER 2:INK 0,1: INK 1,24 
490 MOVE 0,0: DRAW 639,0,1: DRAW 639,399,1 
500 DRAW 0,399,1: DRAW 0,0,1 
520 : 

540 FOR t=0 TO 0.67 STEP 0.33 
600 : GOSUB 840 
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620 : 

640 : FOR k=l TO n 

660 : i.2 = i8 + mx * (x (k) - x8) 

680 : j2 = j8 + my * (y (k) - y8) 

700 : IF k>l 

THEN MOVE il.jl: DRAW i2,j2, 1 
710 : MOVE i2-(10-3*t), j2 

720 : DRAW i 2 , j2+(10-3*t), 1 

725 : DRAW i2+(10-3*t), j2, 1 

730 : DRAW i 2, j2-(10-3*t), 1 

735 : DRAW i2-(10-3*t), j 2 , 1 

740 : IF t = 0 THEN MOVE i2-12, j 2: 

DRAW i2i j 2 + 12, 1:DRAW i2 + 12, j2, 1: 
DRAW i2, j 2-12, 1:DRAW i2-12, j 2, 1 
760 : il = i2: jl = j2 

780 : NEXT k 
800 NEXT t 
810 : 

820 GOTO 1100 
830 : 

840 REM 
850 REM 
860 REM 
870 REM 
880 REM 
890 REM 
900 : 

910 u(0) = u(l) + t*( u(l) - u (2) )/2 
920 v (0) = v (1) + t*( v(l) - v (2) )/2 
930 u (n+1) = u (n) + t* ( u (n) - u (n-1) )/2 

940 v(n+l) = v (n) + t* ( v (n) - v (n-1) )/2 

960 : 

980 FOR k=l TO n 

1000 : x (k) = u (k) + t* ((u (k-1) +u (k + 1))/2-u (k)) 

1020 : y (k) = v (k) +t* ((v (k-1) +v (k+1)) /2-v (k)) 

1040 NEXT k 
1060 RETURN 
1080 : 

1100 a$=INKEY$: IF a$="" THEN 1100 


geglaettete Punkte mit den Koordinaten 
x () . y () berechnen . Eingangswerte sind 
u () , v () und der Glaettungsparameter 
t mit 0 <= t <= li z.B. t = 0.667 
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17. Hardcopy-Routine 

Um die erstellten Grafiken „schwarz auf weiß“ vor sich haben zu können, ist die Ausgabe 
des Bildschirminhaltes auf einem Drucker nötig. Das folgende Programm ermöglicht eine 
Hardcopy des Bildschirmes auf einem SCHNEIDER-Drucker. Tippen Sie das Programm 
sehr sorgfältig ab, und sichern Sie es vor dem Start. Wenn Sie eine Hardcopy erstellen wol¬ 
len, so starten Sie zunächst diese Hardcopy-Routine. Danach laden Sie das Programm zur 
Herstellung der Grafik und bauen einen CALL &A000 ein. Dieser „Einbau“ sieht z. B. so 
aus: 


1670 a$=INKEY$: IF a$="" THEN 1670 
1680 IF a$="d" THEN CALL &A000 

Dabei stehen die beiden Programmzeilen am Programmende. Wird nach Erstellung der 
Grafik die Taste „d“ gedrückt, so wird die Hardcopy-Routine aufgerufen und der Bild¬ 
schirminhalt auf dem Drucker ausgegeben. Nach Beendigung der Hardcopy meldet sich der 
Rechner mit READY. Nun kann durch nochmaliges Starten des Programmes eine weitere 
Hardcopy erstellt werden, oder es wird ein neues Programm geladen. In dieses Programm 
wird wieder ein CALL &A000 eingefügt, und es kann eine Bildschirm-Hardcopy herge¬ 
stellt werden. 


6000 MEMORY &A000-1 

6010 FOR a=&A000 TO &A0BF 

6020 READ b$: POKE a,VAL("&"+b$) 

6030 NEXT a 
6040 : 

6050 DATA cd,ba,bb,cd,e7,bb,32,bd,aO,cd,6c,aO 


6060 DATA 21,8f 
6070 DATA c0,a0 
6080 DATA d5,c5 
6090 DATA 37,20 
6100 DATA aO,79 
6110 DATA 52,el 
6120 DATA c8,2b 
6130 DATA b9,7c 
6140 DATA 3e,lb 
6150 DATA cd,a6 
6160 DATA 02,el 
6170 DATA a0,3e 
6180 DATA 7f,cd 
6190 DATA bd,38 
6200 DATA c8,af 


, 01,22,be,aO,11 
, cd,7c,aO,Oe,00 
, cd,f 0,bb,cl,dl 
, 01,a7,cb,11,2b 
,cd,a6,a0,13,e5 
,38,05,2a,be,a0 
, 11,00,00,22,be 
, b4,20,b5,3e,04 
,cd,a6 , aO,3e,33 
, aO,c9,e5,3e,42 
,c9,3e,0d,cd,a6 
, lb,cd,a6,aO,3e 
,a6,a0,3e,02,cd 
, fb,cd,2b,bd,c9 
,cb,11,cb,11,cb 


, 00,00,3e,07,32 
,3a,c0,a0,47,e5 
, 21,bd,aO,be,el 
, 2b,10,e9,cd,af 
,21,7f,02,37,ed 
,18,cc,23,7c,b5 
, aO,3e,07,bd,20 
,32,cQ,a0,18,ae 
,cd,a6,a0,3e,15 
, cd,le,bb,el, 28 
,aO,3e,0a,cd,a6 
,4c,cd,a6,aO,3e 
,a6,aO,c9,cd,2e 
,3a,c0,a0,fe,07 
,11,c9,00,00,00 
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18. Befehlsliste SCHNEIDER-BASIC 


Bei der hier aufgeführten Kurzübersicht handelt es sich um eine Zusammenstellung der 
wichtigsten Befehle des SCHNEIDER-BASIC. Nicht behandelt werden die Befehle zur 
Musikerzeugung. Aufgeführt werden jeweils nur die Befehlssyntax sowie die Beschreibung 
der Wirkung. 


Programmierhilfen 

AUTO N,M Automatische Zeilennumerierung ab Zeile N mit der 

Schrittweite M. 


RENUM N,A,M Umnumerieren der Zeilennummern. N entspricht der ersten 

gewünschten Zeilennummer. A gibt an, ab wo innerhalb des 
Programmes umnumeriert werden soll. M entspricht der 
Schrittweite. Alle Sprungbefehle werden aktualisiert. 

RESTORE (Zeilennummer) Setzt den Data-Zeiger auf den ersten im Programm auftre¬ 
tenden Wert oder auf den ersten Wert der angegebenen 
„Data“-Zeilennummer. 


MERGE “Prog.-Name“ Anhängen eines Programmes an das im Speicher befind¬ 

liche. 


TRON Nach dem Kommando wird vor Ausführung einer Zeile die 

TROFF jeweilige Zeilennummer in eckigen Klammern auf dem 

Bildschirm ausgegeben. TROFF beendet den TRON-Be- 
fehl. 


Grafik-Befehle 

MODE 0 


MODE 1 


MODE 2 


Vielfarb-Auflösung 160 x 200 Punkte 

20 Spalten oder waagerechte Zeichen 
16 verschiedene Farben darstellbar 

Normal-Auflösung 320x200 Punkte 

40 Spalten 

4 verschiedene Farben darstellbar 

Hoch-Auflösung 640 x 200 Punkte 

80 Spalten 

2 verschiedene Farben darstellbar 
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In allen drei Bildschirmmodi gibt es 25 Zeilen (senkrechte Zeichen). Auch die Koordinaten¬ 
angaben für die Bildschirmpixel sind in allen drei Modi die gleichen. 


INK N,C1[,C2] 

PEN F 
PAPER F 

BORDER C1[,C2] 

SPEED INK N,M 

CLS 

CLG F 

TAG 

TAGOFF 
PLOT X,Y,F 

DRAU X,Y,F 

MOVE X,Y 
TEST (X,Y) 

ORIGIN X,Y 
ORIGIN X0,Y0,L,R,0 


Durch das INK-Kommando wird (werden) dem Farbstift F 
die Farbe(n) CI (und C2) zugeordnet. 

Ordnet dem Schreibstift den angegebenen Farbstift F zu. 

Einschalten des Farbstiftes F zum Ausfüllen des beschreib¬ 
baren Hintergrundes. 

Einschalten der Rahmenfarbe CI bzw. der Farben CI und 
C2, die dann blinken. Als Rahmenfarbe ist jede der 27 Far¬ 
ben möglich. 

Setzt die Länge der Farbdauer bei Farbwechseln (Blinken) 
für INK und BORDER. N entspricht der Dauer der ersten 
Farbe. M entspricht der Dauer der zweiten Farbe. Die Zeiten 
werden in Einheiten zu 0.02 Sekunden gemessen. 

Füllen des Bildschirmbereiches mit der Farbe des durch 
PAPER bestimmten Farbstiftes. 

Füllen des Grafikbildschirmes mit der dem Farbstift F zuge¬ 
ordneten Farbe. 

Ermöglicht mit dem PRINT-Kommando auf Grafik-Cur¬ 
sor-Positionen Text und Symbole auszugeben. 

Beendet den TAG-Befehl. 

Setzt einen Punkt in der dem Farbstift F zugeordneten Farbe 
an die durch X,Y festgelegte Stelle. 

Zeichnet eine Linie von der aktuellen Cursor-Position zu der 
durch X,Y festgelegten Stelle in der dem Farbstift F zuge¬ 
ordneten Farbe. 

Positioniert den Grafik-Cursor auf die durch X, Y festgeleg¬ 
te Stelle. 

Das TEST-Kommando liefert die Farbstiftnummer, die an 
der Stelle X,Y verwendet wurde. 

Setzt den Startpunkt des Grafik-Cursors an die Stelle X,Y. 
Dieser Punkt hat danach die Koordinaten (0,0). 

U Legt einen Grafik-Bildschirm bereich (Fenster) fest. Dabei 
bestimmen L,R,0,U die Größe dieses Bereiches und X0,Y0 
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die Koordinaten der linken unteren Ecke nach Ausführung 
des Kommandos. 

WINDOW #A, L,R,0,U Legt einen Text-Bildschirmteilbereich (Text-Fenster) als ein 

mit #A ansprechbares Ein-/Ausgabegerät fest. L, R. O, U 
beziehen sich dabei auf Zeilen und Spalten und hängen da¬ 
her vom Bildschirmmodus ab. 


Strukturierte Programmierung 

IF. . .THEN... ELSE. .. Falls (IF) die Bedingung wahr, dann (THEN) Anweisung 

ausführen, ansonsten (ELSE) Anweisung. 

WH ILE.... WEND Die Schleife von WHILE bis WEND wird so lange durch¬ 

laufen, wie die Bedingung hinter WHILE wahr ist. 


Fehlerbehandlung 

ON ERROR GOTO 


RESUME Zeilennummer 
RESUME NEXT 


ERROR Fehlernummer 


Tritt ein Programmfehler auf, so springt das Programm in 
die gewünschte Zeile. Hier kann dann die Fehlerbehand¬ 
lung mit Hilfe der Variablen ERR = Fehlernummer und 
ERL = Zeilennummer beginnen. 

Das Programm macht in der angegebenen Zeilennummer 
oder in der nächsten Zeile weiter, falls es durch die Fehler¬ 
behandlung ON ERROR GOTO unterbrochen wurde. 

Führt die für den Fehler mit dieser Nummer vorgesehene 
Behandlung aus. Falls die Fehlernummer nicht von 
SCHNEIDER-BASIC verwendet wird, wird der Fehler nur 
angezeigt und das Programm abgebrochen. 
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Register 


Achsen-Einteilung, 

— äquidistante 17 

— logarithmische 18 
Approximationen 95 

— Polynom 150, 152 

— Kurve 150 
AUTO-Befehl 185 

Balkendiagramm 78 

Befehlsliste für Schneider BASIC 185 

BEZIER-Kurven 107 

BEZIER-Polynom 108 

Bildpunkte 7, 20 

Bildschirm 7 

Bildschirmfarben 8 

Bildschirmfenster 22 

— mit Ausblendung 23 
Bildschirmkoordinaten 16, 20 
Bildspeicher 7 
Bildwiederholröhre 7 
Binomialkoeffizienten 108 
Bitmapping 7 

Bitmuster 7 
Bogenmaß 34 
BORDER-Befehl 8, 186 
Byte 7 

CAD-Lehrprogramm 169 
CLG-Befehl 186 
CLS-Befehl 186 
COS()-Funktion 34 

Demo-Grafiken 43 
Differentialgleichungen 136 
-n-ter Ordnung 143 
Differentialgleichungssysteme 143 
Dimetrie 112 
Drahtmodell 112 
DRAW-Befehl 9, 186 
3D-Balkendiagramme 80 
3D-Darstellungen 111 


— von Funktionen 114 

Ellipsen 38 

— Brennpunkte 38 

— Halbachsen 38 
Extrapolationsmethode 136 

Fehlerquadratsumme 150 
Flächen 

— eines geschlossenen 
Polygonzuges 93 

— schraffieren 29 
Flimmern 7 
Funktionen 

— Kartesische 150 

— mit Untersicht 122 

— zeichnen 70 

— zufallsabhängige 150 

— zusammengesetzte 3D 125 

— 2er Variablen 3D 114, 132 
Funktionsgraph 152 
Funktionsskalen 18 

.artner-Konstruktion 38 
Geradengleichung 26 
GILL-Verfahren 143, 147 
Gitternetz 73 
Glätten 177 
Gradient 127 
Grafik-Anweisungen 185 

Halbschrittverfahren 136 
Hardcopy 184 

Hidden-Line-Algorithmus 118 
Histogramm 79 
Höhenschicht-Linien 127 

— farbige 132 

Imaginärteil 75 
INK-Befehl 9, 186 
Interpolation 

— fortlaufende 96 

— rationale 104 
Interpolationspolynom 

— nach LAGRANGE 95 

— nach NEWTON 40, 100 
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Isometrie 112 

JOY()-Befehl 167 
Joystick, zeichnen mit 167 

Kavalierperspektive 112 
Kreis in Parameterdarstellung 34 
Kreisdiagramm 83 
Kurven 

— mathematische 70 

lineare Differentialgleichung 143 
Linien 

— dicke 10 

— gestrichelte 13 

— unsichtbare 118 

— zufällige 13 
LISSAJOUS-Figuren 64 
LOGO 55 

Maßstabsfaktoren 16, 70 
Menütechnik 151 
MERGE-Befehl 185 
Meßpunkte 150 
Meßreihen glätten 177 
Militärperspektive 112 
Min-Max-Rechnung 152 
MOD-Funktion 47, 134 
MODE-Befehl 8, 185 
MOVE-Befehl 8, 186 
Moiree-Effekt 44 

N-Eck 32 

— eingeschriebene 62 
Netz-Grafik 43 
Niveau-Linien 127 
Nomographie 18 

ORIGIN-Befehl 22, 186 
Ortsfunktion 127 
Ortskurven 75 

PAPER-Befehl 9, 186 
Parabelgleichung 40 
Parallelprojektion 111 


Parameterdarstellung 

— der Ellipse 38 

— der Geraden 26 

— der Parabel 40 

— des Kreises 35 

— von Funktionen 150 
Parameterfunktionen 72 
PEN-Befehl 9, 186 
Pixels 7, 16 

PLOT-Befehl 134, 186 
Polygonzug, ebener 90 
Polynom 

— 2. Grades 95 

— 3. Grades 101 
Punkte invertieren 45 
Punktetabelle 150, 154 

RAM 7 

Raster-Bildschirm 7 
Real-Teil 75 

Rechtecke, geschachtelte 50, 60 
Refresh-Technik 7 
Refresh-Zyklus 7 
Relief-Fläche 115 
RENUM-Befehl 185 
RESTORE-Befehl 185 
Röhren-Grafik 50 
ROMBERG-Verfahren 141 
RUNGE-KUTTA-Verfahren 143 

Schnittpunkt von 2 Geraden 27 
Schraffieren von Flächen 29 
Schreib-Lese-Speicher 7 
Schwingungen 64 

— gedämpfte 152 
Sechseck 

— geschachtelte 47 
Sehnenzüge 70 
Simulationen 136, 143 
SIN()-Funktion 34, 70 
Skalengleichung 16 
SPEED INK-Befehl 186 
Spiralen 150 
Stern-Grafiken 57 
STOER-BULIRSCH-Verfahren 141 
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Storage-Tube 7 

WINDOW-Befehl 187 

Strahlensatz 16 

Winkelumrechnung 34 

Stützhöhen 128 

Wurf 

TAG-Befehl 83, 186 

— mit Luftreibung 139 

— schiefer 136 

TAGOFF-Befehl 83, 186 

Wurfparabel 139 

TEST-Befehl 186 

Trigonometrische Funktionen 34 

x-Achse 17 

Trochoide 153 

TROFF-Befehl 185 

Zeichnen 

TRON-Befehl 185 

— mit Joystick 167 

Turtle-Grafik 55 

— von Funktionen 70 

Using-Anweisung 36 

— von Linien 8 

— von Ortskurven 75 

Vektorbildschirm 7 

Zufallsgrafiken 86 
Zufallslinien 11 

Vierecke, eingeschriebene 62 

Zykloide 153 
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Westermann Computerbücher — 

ideal als Ratgeber und Nachschlagewerk, vorzüglich zum 
Selbststudium geeignet 


Hänsel 

Basiswissen C 64 

Das universelle Handbuch 
212 Seiten 

Best.-Nr. 3-14-138810-6 

Bachmann 
Grafik auf dem C 64 

Über 100 interessante Abbildungen 
205 Seiten 

Best.-Nr. 3-14-138811-4 
Programmdiskette Best.-Nr. 138011 

Diepold u. a. 

Lernbausteine für den C 64 

Für das Lernen mit dem Computer 
160 Seiten 

Best.-Nr. 3-14-138812-2 
Programmdiskette Best.-Nr. 138012 

Bachmann/Bäthge 
Grafik auf dem Apple II 

Über 100 interessante Abbildungen 
234 Seiten 

Best.-Nr. 3-14-138814-8 
Programmdiskette Best.-Nr. 138014 

Bachmann/Kluge 

Assemblerprogrammierung 
auf dem C 64 

Ideal für Einsteiger und Fortgeschrittene 
270 Seiten 

Best.-Nr. 3-14-138813-X 
Diskette mit Assembler/Monitor 
Best.-Nr. 138013, Preis: DM 79,-* 


Bachmann/Rösner 
Grafik auf dem CPC 464 

Über 100 interessante Abbildungen 
ca 220 Seiten 
Best.-Nr. 3-14-138818-0 
Programmdiskette Best.-Nr. 138018 

Loel 

Logo auf dem C 64 

Einführung in diese faszinierende 
Programmiersprache 
ca. 200 Seiten 
Best.-Nr. 3-14-138819-9 
Programmdiskette Best.-Nr. 138019 

Schoof u. a. 

Biologie auf dem Apple II 

Interessante Simulationen 
ca. 230 Seiten 
Best.-Nr. 3-14-138821-0 
Programmdiskette Best.-Nr. 138021 
Erscheinungstermin Dezember 1985 


Alle Bücher haben einen gebundenen Preis von DM 29,80. 
Die Programmdisketten kosten jeweils DM 49,—*/DM 79,—* 

‘unverbindliche Preisempfehlung 
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E iner sehr gut verständlichen 

Programmbeschreibung folgt je¬ 
weils das komplette Listing und die 
Abbildung der entsprechenden 
Grafik. Ohne tiefergehende Kenntnis¬ 
se vorauszusetzen, werden elementare Pro¬ 
grammierungstechniken wie z. B. die Bild¬ 
schirmfenstergestaltung, das Schraffieren und 
das Zeichnen geometrischer Grundfiguren 
ausführlich erläutert und an vielen Abbildun¬ 
gen demonstriert. Optisch eindrucksvolle De¬ 
mo-Grafiken in schönen Farbgebungen, eine 
Fülle von anwendungsorientierten Grafikpro¬ 
grammen aus Mathematik und Physik, kom¬ 
fortable menügesteuerte Zeichenprogramme, 
3D-Grafiken sowie Programme zur grafischen 
Lösung von Differentialgleichungen zeigen, 
daß alle wesentlichen Grafikmöglichkeiten 
vom Autor behandelt werden. Die Program¬ 
me kommen mit dem Befehlssatz von 
SCHNEIDER BASIC aus und sind vom Leser 
leicht nach eigenen Wünschen zu ändern. 
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